mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

* Oops, this belongs to the previous ChangeLog entry...

Browse source
This commit is contained in:
Dirk Herrmann 2001-11-17 12:16:05 +00:00
parent 7171f1ab47
commit 3096b33f0d
1 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/eval.c
View file

@ -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));
}