mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-28 16:00:22 +02:00
Code Activity

* eval.c (unmemocopy): Don't rely on V being a list of at least

Browse source 
one element.  Thanks to Bill Schottstaedt!
This commit is contained in:
Marius Vollmer 2000-07-17 19:59:57 +00:00
parent 9d47a1e6f2
commit 1bd07992b6
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/eval.c
View file

@ -1341,7 +1341,7 @@ unmemocopy (SCM x, SCM env)
: f; : f;
/* build transformed binding list */ /* build transformed binding list */
z = SCM_EOL; z = SCM_EOL;
do while (SCM_NIMP (v))
{ {
z = scm_acons (SCM_CAR (v), z = scm_acons (SCM_CAR (v),
scm_cons (SCM_CAR (e), scm_cons (SCM_CAR (e),
@ -1353,7 +1353,6 @@ unmemocopy (SCM x, SCM env)
e = SCM_CDR (e); e = SCM_CDR (e);
s = SCM_CDR (s); s = SCM_CDR (s);
} }
while (SCM_NIMP (v));
z = scm_cons (z, SCM_UNSPECIFIED); z = scm_cons (z, SCM_UNSPECIFIED);
SCM_SETCDR (ls, z); SCM_SETCDR (ls, z);
if (SCM_EQ_P (SCM_CAR (ls), scm_sym_do)) if (SCM_EQ_P (SCM_CAR (ls), scm_sym_do))