summaryrefslogtreecommitdiff
path: root/libguile/eval.c
diff options
context:
space:
mode:
authorHan-Wen Nienhuys <hanwen@lilypond.org>2004-06-12 22:22:56 +0000
committerHan-Wen Nienhuys <hanwen@lilypond.org>2004-06-12 22:22:56 +0000
commitd93294d451c411ccdab025c4dc16e0f24f85965f (patch)
tree70c3d89e06f72ca83f4ee6aa39fd3e8309ac0a74 /libguile/eval.c
parent212e58ede8e7e7cc074eb90ba3eab03afdd2641c (diff)
downloadguile-d93294d451c411ccdab025c4dc16e0f24f85965f.tar.gz
(unmemoize_exprs): use SCM_CONSP for the loop condition.
Diffstat (limited to 'libguile/eval.c')
-rw-r--r--libguile/eval.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/eval.c b/libguile/eval.c
index bb56db39a..5ff0cd062 100644
--- a/libguile/eval.c
+++ b/libguile/eval.c
@@ -580,13 +580,13 @@ unmemoize_exprs (const SCM exprs, const SCM env)
SCM result = SCM_EOL;
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 um_expr = unmemoize_expression (expr, env);
result = scm_cons (um_expr, result);
}
-
+
return scm_reverse_x (result, SCM_UNDEFINED);
}