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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-09-30 07:15:38 -0700 (Fri, 30 Sep 2005)
New Revision: 1696

Modified:
   branches/r5rs/sigscheme/eval.c
Log:
* sigscheme/eval.c
  - (ScmExp_let): Make efficient


Modified: branches/r5rs/sigscheme/eval.c
===================================================================
--- branches/r5rs/sigscheme/eval.c	2005-09-30 14:08:59 UTC (rev 1695)
+++ branches/r5rs/sigscheme/eval.c	2005-09-30 14:15:38 UTC (rev 1696)
@@ -1103,7 +1103,13 @@
     if (!NULLP(bindings))
         SigScm_Error("let : invalid bindings form");
 
+#if 1
+    /* current implementation extend_environment() contains unnecessary
+       error checking for let variants. So we extend manually */
+    env = CONS(CONS(vars, vals), env);
+#else
     env = extend_environment(vars, vals, env);
+#endif
     eval_state->env = env;
 
     /* named let */