diff options
| author | Konrad Hinsen <konrad.hinsen@laposte.net> | 2009-08-31 11:33:21 +0200 |
|---|---|---|
| committer | Konrad Hinsen <konrad.hinsen@laposte.net> | 2009-08-31 11:33:21 +0200 |
| commit | 39618b6d881fb0c3b52de4929aa34134bb32ffdb (patch) | |
| tree | 92c778fad1610d3103472397313d1186f74c1af1 | |
| parent | cdbfc8de5723bc352ee4fb54bd3eeb4502835362 (diff) | |
macro-utils: fix handling of let* and loop* forms with more than one body expression
| -rw-r--r-- | src/clojure/contrib/macro_utils.clj | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/clojure/contrib/macro_utils.clj b/src/clojure/contrib/macro_utils.clj index 98685b77..4eecaefa 100644 --- 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]] |