def: fix defalias to work with macros

1 files changed, 4 insertions, 4 deletions

diff --git a/src/clojure/contrib/def.clj b/src/clojure/contrib/def.clj
index d6eb14af..a9ad891f 100644
--- a/src/clojure/contrib/def.clj
+++ b/src/clojure/contrib/def.clj
@@ -66,10 +66,10 @@
   as another with the exception of :namespace, :name, :file, :line, and
   optionally :doc which are those of new var."
   ([name orig]
-     `(let [v# (def ~name ~orig)]
-        (. v# (setMeta (merge (meta #'~orig) (meta #'~name))))
+     `(let [v# (def ~name (var ~orig))]
+        (. v# (setMeta (merge (meta (var ~orig)) (meta (var ~name)))))
         v#))
   ([name orig doc]
-     `(let [v# (def ~name ~orig)]
-        (. v# (setMeta (merge (meta #'~orig) (assoc (meta #'~name) :doc ~doc))))
+     `(let [v# (def ~name (var ~orig))]
+        (. v# (setMeta (merge (meta (var ~orig)) (assoc (meta (var ~name)) :doc ~doc))))
         v#)))