macro-utils: fix handling of let* and loop* forms with more than one …

…body expression
richhickey · Aug 31, 2009 · 39618b6 · 39618b6
1 parent cdbfc8d
commit 39618b6
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/clojure/contrib/macro_utils.clj b/src/clojure/contrib/macro_utils.clj
@@ -1,7 +1,7 @@
 ;; Macrolet and symbol-macrolet
 
 ;; by Konrad Hinsen
-;; last updated August 19, 2009
+;; last updated August 31, 2009
 
 ;; Copyright (c) Konrad Hinsen, 2009. All rights reserved.  The use
 ;; and distribution terms for this software are covered by the Eclipse
@@ -122,8 +122,8 @@
 	exprs    (rest (rest form))
 	expanded (expand-bindings bindings exprs)
 	bindings (vec (apply concat (butlast expanded)))
-	exprs    (first (last expanded))]
-    (list f bindings exprs)))
+	exprs    (last expanded)]
+    (cons f (cons bindings exprs))))
 
 (defn- expand-fn-body
   [[args & exprs]]