mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 03:30:27 +02:00
Code Activity

(m_expand_body): remove stray variable new_body.

Browse source
This commit is contained in:
Han-Wen Nienhuys 2004-01-22 23:14:09 +00:00
parent ef5b6b61d0
commit f62b9dff21
2 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/ChangeLog
View file

@ -1,3 +1,7 @@
2004-01-23 Han-Wen Nienhuys <hanwen@xs4all.nl>
* eval.c (m_expand_body): remove stray variable new_body.
2004-01-22 Marius Vollmer <mvo@zagadka.de>
* eval.c (m_expand_body): Rewrite the expression in place (by

2
libguile/eval.c
View file

@ -932,7 +932,6 @@ m_expand_body (const SCM forms, const SCM env)
SCM letrec_tail;
SCM letrec_expression;
SCM new_letrec_expression;
SCM new_body;
SCM bindings = SCM_EOL;
for (definition_idx = definitions;
@ -2244,6 +2243,7 @@ unmemocar (SCM form, SCM env)
env = SCM_CAAR (env);
for (ir = SCM_IDIST (c); ir != 0; --ir)
env = SCM_CDR (env);
SCM_SETCAR (form, SCM_ICDRP (c) ? env : SCM_CAR (env));
}
return form;