[uim-commit] r1634 - trunk/scm

[ekato at freedesktop.org]

Author: ekato
Date: 2005-09-28 00:14:02 -0700 (Wed, 28 Sep 2005)
New Revision: 1634

Modified:
   trunk/scm/rk.scm
Log:
* scm/rk.scm : Port r1633 from r5rs.


Modified: trunk/scm/rk.scm
===================================================================
--- trunk/scm/rk.scm	2005-09-28 06:49:20 UTC (rev 1633)
+++ trunk/scm/rk.scm	2005-09-28 07:14:02 UTC (rev 1634)
@@ -81,7 +81,7 @@
 		#f))
 	   (c (rk-lib-find-seq longest-tail rule))
 	   (t (rk-lib-find-seq seq rule))
-	   (res ()))
+	   (res #f))
       (and
        (if (> len 0)
 	   #t
@@ -222,8 +222,7 @@
     (let*
 	((cur-seq (rk-context-seq rkc))
 	 (new-seq (cons key cur-seq))
-	 (rule (rk-context-rule rkc))
-	 (res))
+	 (rule (rk-context-rule rkc)))
       (rk-context-set-seq! rkc new-seq)
       (rk-check-back-commit rkc rule new-seq))))
 
@@ -235,7 +234,7 @@
 	 (s (cons key s))
 	 (rule (rk-context-rule rkc))
 	 (seq (rk-lib-find-seq (reverse s) rule))
-	 (res))
+	 (res #f))
       (set!
        res
        (if (rk-partial-seq? rkc s)