(unmemoize_exprs): use SCM_CONSP for the loop condition.

[bpt/guile.git] / libguile / eval.c

diff --git a/libguile/eval.c b/libguile/eval.c
index bb56db3..5ff0cd0 100644 (file)
--- 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);
 }