diff options
| -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]] |