From 21ecebc20e45132bd1c78fd5392b5f6523e4c9e6 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Thu, 23 Jan 2014 21:27:20 -0800 Subject: * eval.c (expand): Bugfix in expansion of dohash: neglected to insert result form into the expanded output. --- ChangeLog | 5 +++++ eval.c | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 377bcff9..1b010072 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2014-01-23 Kaz Kylheku + + * eval.c (expand): Bugfix in expansion of dohash: neglected + to insert result form into the expanded output. + 2014-01-23 Kaz Kylheku Version 76 diff --git a/eval.c b/eval.c index 3e2d9821..41ebd8bc 100644 --- a/eval.c +++ b/eval.c @@ -1784,7 +1784,9 @@ val expand(val form) if (hashform == hashform_ex && resform == resform_ex && body == body_ex) return form; return cons(sym, cons(cons(keysym, - cons(valsym, cons(hashform_ex, nil))), + cons(valsym, + cons(hashform_ex, + cons(resform_ex, nil)))), body_ex)); } else if (sym == quasi_s) { val quasi = rest(form); -- cgit v1.2.3