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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-09-18 01:13:59 -0700 (Sun, 18 Sep 2005)
New Revision: 1510

Modified:
   branches/r5rs/sigscheme/eval.c
   branches/r5rs/sigscheme/sigscheme.h
Log:
* sigscheme/sigscheme.h
  - (SCM_GC_CALL_PROTECTED_FUNC_INTERNAL): Cosmetic change

* sigscheme/eval.c
  - (ScmOp_eval): Modify some comments
  - (map_eval): Add missing 'static' to the definition


Modified: branches/r5rs/sigscheme/eval.c
===================================================================
--- branches/r5rs/sigscheme/eval.c	2005-09-17 18:41:29 UTC (rev 1509)
+++ branches/r5rs/sigscheme/eval.c	2005-09-18 08:13:59 UTC (rev 1510)
@@ -249,11 +249,11 @@
         goto eval_done;
 
     /*====================================================================
-      Evaluating Expression
+      Evaluating a list form
     ====================================================================*/
     case ScmCons:
         /*============================================================
-          Evaluating CAR
+          Evaluating car of the form (syntax or procedure)
         ============================================================*/
         tmp = CAR(obj);
         switch (SCM_TYPE(tmp)) {
@@ -274,9 +274,9 @@
             break;
         }
 
-        /*============================================================
-          Evaluating the rest of the List by the type of CAR
-        ============================================================*/
+        /*===============================================================
+          Evaluating the rest of the form according to type of the car
+        ===============================================================*/
         switch (SCM_TYPE(tmp)) {
         case ScmFunc:
             /*
@@ -635,7 +635,7 @@
     return val;
 }
 
-ScmObj map_eval(ScmObj args, ScmObj env)
+static ScmObj map_eval(ScmObj args, ScmObj env)
 {
     ScmObj result  = SCM_NULL;
     ScmObj tail    = SCM_NULL;

Modified: branches/r5rs/sigscheme/sigscheme.h
===================================================================
--- branches/r5rs/sigscheme/sigscheme.h	2005-09-17 18:41:29 UTC (rev 1509)
+++ branches/r5rs/sigscheme/sigscheme.h	2005-09-18 08:13:59 UTC (rev 1510)
@@ -150,7 +150,6 @@
                   SigScm_GC_EnsureUninlinedFunc((ScmCFunc)&func);            \
         exp_ret (*fp)args;                                                   \
         SigScm_GC_UnprotectStack(stack_start);                               \
-                                                                             \
     } while (/* CONSTCOND */ 0)
 
 #endif /* SCM_GCC4_READY_GC */