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

[tkng at freedesktop.org]

Author: tkng
Date: 2005-07-25 23:02:14 -0700 (Mon, 25 Jul 2005)
New Revision: 1032

Modified:
   branches/r5rs/sigscheme/eval.c
Log:
* sigscheme/eval.c: Now nested define works properly.
 -(add_environment): Fixed to create new_vallist correctly.


Modified: branches/r5rs/sigscheme/eval.c
===================================================================
--- branches/r5rs/sigscheme/eval.c	2005-07-25 15:04:00 UTC (rev 1031)
+++ branches/r5rs/sigscheme/eval.c	2005-07-26 06:02:14 UTC (rev 1032)
@@ -123,16 +123,13 @@
     } else if (SCM_CONSP(env)) {
 	newest_frame = SCM_CAR(env);
 	new_varlist  = Scm_NewCons(var, SCM_CAR(newest_frame));
+	new_vallist  = Scm_NewCons(val, SCM_CDR(newest_frame));
 
-	tmp = SCM_CDR(newest_frame);
-	tmp = SCM_CAR(tmp);
-
-	new_vallist  = Scm_NewCons(val, tmp);
-	env = Scm_NewCons(Scm_NewCons(new_varlist, new_vallist), SCM_CDR(newest_frame));
+	tmp = Scm_NewCons(Scm_NewCons(new_varlist, new_vallist), SCM_CDR(env));
+	*env = *tmp;
     } else {
 	SigScm_Error("broken environment\n");
     }
-
     return env;
 }