hack for #82, very ugly

1 files changed, 4 insertions, 2 deletions

diff --git a/src/main/clojure/clojure/contrib/def.clj b/src/main/clojure/clojure/contrib/def.clj
index cc3eef75..08274cec 100644
--- a/src/main/clojure/clojure/contrib/def.clj
+++ b/src/main/clojure/clojure/contrib/def.clj
@@ -73,8 +73,10 @@ making private definitions more succinct."}
          (if (.hasRoot (var ~orig))
            (def ~name (.getRoot (var ~orig)))
            (def ~name))
-         conj
-         (apply dissoc (meta (var ~orig)) (keys (meta (var ~name)))))
+         ;; When copying metadata, disregard {:macro false}.
+         ;; Workaround for http://www.assembla.com/spaces/clojure/tickets/273
+         #(conj (dissoc % :macro)
+                (apply dissoc (meta (var ~orig)) (remove #{:macro} (keys %)))))
         (var ~name)))
   ([name orig doc]
      (list `defalias (with-meta name (assoc (meta name) :doc doc)) orig)))