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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-12-04 05:56:20 -0800 (Sun, 04 Dec 2005)
New Revision: 2354

Modified:
   branches/r5rs/sigscheme/eval.c
Log:
* sigscheme/eval.c
  - (Scm_AddEnvironment): Simplify


Modified: branches/r5rs/sigscheme/eval.c
===================================================================
--- branches/r5rs/sigscheme/eval.c	2005-12-04 13:54:02 UTC (rev 2353)
+++ branches/r5rs/sigscheme/eval.c	2005-12-04 13:56:20 UTC (rev 2354)
@@ -147,9 +147,8 @@
 
     /* add (var, val) pair to the newest frame in env */
     if (NULLP(env)) {
-        newest_frame = CONS(CONS(var, SCM_NULL),
-                            CONS(val, SCM_NULL));
-        env = CONS(newest_frame, SCM_NULL);
+        newest_frame = CONS(LIST_1(var), LIST_1(val));
+        env = LIST_1(newest_frame);
     } else if (CONSP(env)) {
         newest_frame = CAR(env);
         new_vars = CONS(var, CAR(newest_frame));