def.clj: update defalias to use only supported clojure calls/reader macros

1 files changed, 4 insertions, 4 deletions

diff --git a/src/clojure/contrib/def.clj b/src/clojure/contrib/def.clj
index c36b599d..2debdf88 100644
--- a/src/clojure/contrib/def.clj
+++ b/src/clojure/contrib/def.clj
@@ -64,12 +64,12 @@
   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 (. (var ~orig) (get)))]
-        (. v# (setMeta (merge (meta (var ~orig)) (meta (var ~name)))))
+     `(let [o# #'~orig v# (def ~name @o#)]
+        (alter-meta! v# merge ^o# ^v#)
         v#))
   ([name orig doc]
-     `(let [v# (def ~name (. (var ~orig) (get)))]
-        (. v# (setMeta (merge (meta (var ~orig)) (assoc (meta (var ~name)) :doc ~doc))))
+     `(let [o# #'~orig v# (def ~name @o#)]
+        (alter-meta! v# merge ^o# ^v# {:doc ~doc})
         v#)))
 
 ; defhinted by Chouser: