[uim-commit] r2919 - branches/r5rs/sigscheme/src

[yamaken at freedesktop.org]

Author: yamaken
Date: 2006-01-14 11:54:57 -0800 (Sat, 14 Jan 2006)
New Revision: 2919

Modified:
   branches/r5rs/sigscheme/src/eval.c
Log:
* sigscheme/src/eval.c
  - (call): Simplify logic


Modified: branches/r5rs/sigscheme/src/eval.c
===================================================================
--- branches/r5rs/sigscheme/src/eval.c	2006-01-14 19:38:21 UTC (rev 2918)
+++ branches/r5rs/sigscheme/src/eval.c	2006-01-14 19:54:57 UTC (rev 2919)
@@ -301,12 +301,11 @@
     if (type == SCM_REDUCTION_OPERATOR)
         return reduce(func, args, env, need_eval);
 
-    /* Suppress argument evaluation for syntaxes. */
     syntaxp = type & SCM_FUNCTYPE_SYNTAX;
-    if (need_eval) {
-        need_eval = !syntaxp;
-    } else {
-        if (syntaxp)
+    if (syntaxp) {
+        if (need_eval)
+            need_eval = scm_false;
+        else
             ERR_OBJ("can't apply/map a syntax", proc);
     }