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

(unmemoize_exprs): use SCM_CONSP for the loop condition.

Browse source
This commit is contained in:
Han-Wen Nienhuys 2004-06-12 22:22:56 +00:00
parent 212e58ede8
commit d93294d451
2 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/ChangeLog
View file

@ -1,3 +1,7 @@
2004-06-13 Han-Wen Nienhuys <hanwen@xs4all.nl>
* eval.c (unmemoize_exprs): use SCM_CONSP for the loop condition.
2004-06-06 Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> 2004-06-06 Dirk Herrmann <dirk@dirk-herrmanns-seiten.de>
* list.[ch] (scm_i_finite_list_copy): New internal function to * list.[ch] (scm_i_finite_list_copy): New internal function to

4
libguile/eval.c
View file

@ -580,13 +580,13 @@ unmemoize_exprs (const SCM exprs, const SCM env)
SCM result = SCM_EOL; SCM result = SCM_EOL;
SCM expr_idx; SCM expr_idx;
for (expr_idx = exprs; !SCM_NULLP (expr_idx); expr_idx = SCM_CDR (expr_idx)) for (expr_idx = exprs; SCM_CONSP (expr_idx); expr_idx = SCM_CDR (expr_idx))
{ {
const SCM expr = SCM_CAR (expr_idx); const SCM expr = SCM_CAR (expr_idx);
const SCM um_expr = unmemoize_expression (expr, env); const SCM um_expr = unmemoize_expression (expr, env);
result = scm_cons (um_expr, result); result = scm_cons (um_expr, result);
} }
return scm_reverse_x (result, SCM_UNDEFINED); return scm_reverse_x (result, SCM_UNDEFINED);
} }