From 54599a32a30ee276e4a26b20049ac2c79b6057c9 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Tue, 10 Jan 2012 23:36:37 -0800 Subject: * eval.c (generate): Bugfix: do not call gen_fun before testing while_pred. --- ChangeLog | 5 +++++ eval.c | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 92145108..846f7c0c 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2012-01-10 Kaz Kylheku + + * eval.c (generate): Bugfix: do not call gen_fun before + testing while_pred. + 2012-01-10 Kaz Kylheku * eval.c (tostring, tostringp): New static functions. diff --git a/eval.c b/eval.c index 53baae3b..859cafaa 100644 --- a/eval.c +++ b/eval.c @@ -1314,10 +1314,10 @@ static val generate_func(val env, val lcons) static val generate(val while_pred, val gen_fun) { - val first_item = funcall(gen_fun); if (!funcall(while_pred)) { return nil; } else { + val first_item = funcall(gen_fun); val lc = make_lazy_cons(func_f1(cons(while_pred, gen_fun), generate_func)); rplaca(lc, first_item); return lc; -- cgit v1.2.3