mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

Added comment on how to make case 1.1 of r5rs_pitfall.test succeed.

Browse source
This commit is contained in:
Marius Vollmer 2005-06-05 20:52:23 +00:00
parent 80a09c4718
commit e9ed042cbc
1 changed files with 7 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/eval.c
View file

@ -3570,6 +3570,13 @@ dispatch:
init_forms = SCM_CDR (init_forms); init_forms = SCM_CDR (init_forms);
} }
while (!scm_is_null (init_forms)); while (!scm_is_null (init_forms));
/* In order to make case 1.1 of the R5RS pitfall testsuite
succeed, we would need to copy init_values here like
so:
init_values = scm_list_copy (init_values);
*/
SCM_SETCDR (SCM_CAR (env), init_values); SCM_SETCDR (SCM_CAR (env), init_values);
} }
x = SCM_CDR (x); x = SCM_CDR (x);