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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-12-04 06:02:00 -0800 (Sun, 04 Dec 2005)
New Revision: 2355

Modified:
   branches/r5rs/sigscheme/eval.c
Log:
* sigscheme/eval.c
  - (ScmExp_let, ScmExp_letstar): Replace manual environment extension
    with Scm_ExtendEnvironment()


Modified: branches/r5rs/sigscheme/eval.c
===================================================================
--- branches/r5rs/sigscheme/eval.c	2005-12-04 13:56:20 UTC (rev 2354)
+++ branches/r5rs/sigscheme/eval.c	2005-12-04 14:02:00 UTC (rev 2355)
@@ -1017,13 +1017,7 @@
     if (!NULLP(bindings))
         ERR_OBJ("invalid bindings form", bindings);
 
-#if 1
-    /* current implementation Scm_ExtendEnvironment() contains unnecessary
-       error checking for let variants. So we extend manually */
-    env = CONS(CONS(vars, vals), env);
-#else
     env = Scm_ExtendEnvironment(vars, vals, env);
-#endif
     eval_state->env = env;
 
     /* named let */
@@ -1071,14 +1065,7 @@
         val = EVAL(val, env);
 
         /* extend env for each variable */
-#if 1
-        /* current implementation Scm_ExtendEnvironment() contains unnecessary
-           error checking for let variants. So we extend manually */
-        env = CONS(CONS(LIST_1(var), LIST_1(val)),
-                   env);
-#else
         env = Scm_ExtendEnvironment(LIST_1(var), LIST_1(val), env);
-#endif
     }
 
     if (!NULLP(bindings))