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

[kzk at freedesktop.org]

Author: kzk
Date: 2005-09-28 01:12:03 -0700 (Wed, 28 Sep 2005)
New Revision: 1636

Modified:
   branches/r5rs/sigscheme/operations.c
Log:
* sigscheme/operations.c
  - (map_singular_arg): fix wrong initialization..


Modified: branches/r5rs/sigscheme/operations.c
===================================================================
--- branches/r5rs/sigscheme/operations.c	2005-09-28 08:08:16 UTC (rev 1635)
+++ branches/r5rs/sigscheme/operations.c	2005-09-28 08:12:03 UTC (rev 1636)
@@ -1738,7 +1738,7 @@
 
 static ScmObj map_singular_arg(ScmObj proc, ScmObj args)
 {
-    ScmObj ret      = SCM_NULL;
+    ScmObj ret      = SCM_FALSE;
     ScmObj ret_tail = SCM_FALSE;
 
     if (NULLP(args))
@@ -1749,7 +1749,6 @@
             /* lasting */
             SET_CDR(ret_tail, CONS(Scm_call(proc, LIST_1(CAR(args))), SCM_NULL));
             ret_tail = CDR(ret_tail);
-
         } else {
             /* first */
             ret = CONS(Scm_call(proc, LIST_1(CAR(args))), SCM_NULL);
@@ -1770,7 +1769,7 @@
     ScmObj ret_tail     = SCM_FALSE;
 
     while (1) {
-        /* construct map_arg */
+        /* construct "map_arg" */
         map_arg  = SCM_NULL;
         tmp_lsts = args;
         for (; !NULLP(tmp_lsts); tmp_lsts = CDR(tmp_lsts)) {
@@ -1792,7 +1791,7 @@
             SET_CAR(tmp_lsts, CDR(lst));
         }
 
-        /* construct ret */
+        /* construct "ret" by applying proc to each map_arg */
         if (NFALSEP(ret)) {
             /* lasting */
             SET_CDR(ret_tail, CONS(Scm_call(proc, map_arg), SCM_NULL));