diff options
Diffstat (limited to 'src/clojure/contrib/def.clj')
| -rw-r--r-- | src/clojure/contrib/def.clj | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/clojure/contrib/def.clj b/src/clojure/contrib/def.clj index 3537d1ad..54efe936 100644 --- a/src/clojure/contrib/def.clj +++ b/src/clojure/contrib/def.clj @@ -64,10 +64,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 (var ~orig))] + `(let [v# (def ~name (. (var ~orig) (get)))] (. v# (setMeta (merge (meta (var ~orig)) (meta (var ~name))))) v#)) ([name orig doc] - `(let [v# (def ~name (var ~orig))] + `(let [v# (def ~name (. (var ~orig) (get)))] (. v# (setMeta (merge (meta (var ~orig)) (assoc (meta (var ~name)) :doc ~doc)))) v#))) |