summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-11-17 12:16:05 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-11-17 12:16:05 +0000
commit3096b33f0d2984fa602c9943078f078668d3d542 (patch)
tree6c20afebecfdc399963cd560f7141ccce41004f7
parent7171f1ab47ee8c9950cbb4cb90ede4c68fffa31e (diff)
downloadguile-3096b33f0d2984fa602c9943078f078668d3d542.tar.gz
* Oops, this belongs to the previous ChangeLog entry...
-rw-r--r--libguile/eval.c8
1 files changed, 5 insertions, 3 deletions
diff --git a/libguile/eval.c b/libguile/eval.c
index 11383acf3..73ac4eceb 100644
--- a/libguile/eval.c
+++ b/libguile/eval.c
@@ -995,14 +995,16 @@ scm_m_let (SCM xorig, SCM env)
|| (scm_ilength (temp) == 1 && SCM_CONSP (SCM_CAR (temp))))
{
/* null or single binding, let* is faster */
+ SCM bindings = temp;
SCM body = scm_m_body (SCM_IM_LET, SCM_CDR (x), s_let);
- return scm_m_letstar (scm_cons2 (SCM_CAR (xorig), temp, body), env);
+ return scm_m_letstar (scm_cons2 (SCM_CAR (xorig), bindings, body), env);
}
else if (SCM_CONSP (temp))
{
- /* plain let, temp is <bindings> */
+ /* plain let */
+ SCM bindings = temp;
SCM rvars, inits, body;
- transform_bindings (temp, &rvars, &inits, "let");
+ transform_bindings (bindings, &rvars, &inits, "let");
body = scm_m_body (SCM_IM_LET, SCM_CDR (x), "let");
return scm_cons2 (SCM_IM_LET, rvars, scm_cons (inits, body));
}