[uim-commit] r1671 - branches/r5rs/sigscheme

[kzk at freedesktop.org]

Author: kzk
Date: 2005-09-28 09:14:27 -0700 (Wed, 28 Sep 2005)
New Revision: 1671

Modified:
   branches/r5rs/sigscheme/operations.c
Log:
* sigscheme/operations.c
  - (map_multiple_args): initialize map_arg with SCM_FALSE


Modified: branches/r5rs/sigscheme/operations.c
===================================================================
--- branches/r5rs/sigscheme/operations.c	2005-09-28 16:09:43 UTC (rev 1670)
+++ branches/r5rs/sigscheme/operations.c	2005-09-28 16:14:27 UTC (rev 1671)
@@ -1753,7 +1753,7 @@
 
     while (1) {
         /* construct "map_arg" */
-        map_arg  = SCM_NULL;
+        map_arg  = SCM_FALSE;
         tmp_lsts = args;
         for (; !NULLP(tmp_lsts); tmp_lsts = CDR(tmp_lsts)) {
             lst = CAR(tmp_lsts);