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

to insert result form into the expanded output.

2 files changed, 8 insertions, 1 deletions

diff --git a/ChangeLog b/ChangeLog
index 377bcff9..1b010072 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2014-01-23  Kaz Kylheku  <kaz@kylheku.com>
 
+	* eval.c (expand): Bugfix in expansion of dohash: neglected
+	to insert result form into the expanded output.
+
+2014-01-23  Kaz Kylheku  <kaz@kylheku.com>
+
 	Version 76
 
 	* txr.c (version): Bumped.
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);