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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-09-05 07:31:19 -0700 (Mon, 05 Sep 2005)
New Revision: 1430

Modified:
   branches/r5rs/sigscheme/datas.c
   branches/r5rs/sigscheme/operations-srfi1.c
Log:
* sigscheme/datas.c
  - (Scm_NewCons): Restore the proper function name broken by previous
    commit as CONS
* sigscheme/operations-srfi1.c
  - (ScmOp_SRFI1_list_tabulate): Cosmetic change


Modified: branches/r5rs/sigscheme/datas.c
===================================================================
--- branches/r5rs/sigscheme/datas.c	2005-09-05 14:23:09 UTC (rev 1429)
+++ branches/r5rs/sigscheme/datas.c	2005-09-05 14:31:19 UTC (rev 1430)
@@ -592,7 +592,7 @@
 /*===========================================================================
   Allocate Structure Functions
 ===========================================================================*/
-ScmObj CONS(ScmObj a, ScmObj b)
+ScmObj Scm_NewCons(ScmObj a, ScmObj b)
 {
     ScmObj obj = SCM_NULL;
     SCM_NEW_OBJ_INTERNAL(obj);

Modified: branches/r5rs/sigscheme/operations-srfi1.c
===================================================================
--- branches/r5rs/sigscheme/operations-srfi1.c	2005-09-05 14:23:09 UTC (rev 1429)
+++ branches/r5rs/sigscheme/operations-srfi1.c	2005-09-05 14:31:19 UTC (rev 1430)
@@ -160,7 +160,7 @@
         if (!NULLP(proc)) {
             /* evaluate (proc num) */
             num = ScmOp_eval(CONS(proc,
-                                         CONS(num, SCM_NULL)),
+                                  CONS(num, SCM_NULL)),
                              env);
         }