* eval.c (expand): Bugfix in expansion of dohash: neglected

to insert result form into the expanded output.

1 files changed, 3 insertions, 1 deletions

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);