diff options
| -rw-r--r-- | modules/def/src/main/clojure/clojure/contrib/def.clj | 2 | ||||
| -rw-r--r-- | modules/ns-utils/src/main/clojure/clojure/contrib/ns_utils.clj | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/modules/def/src/main/clojure/clojure/contrib/def.clj b/modules/def/src/main/clojure/clojure/contrib/def.clj index c3cd2c42..098791da 100644 --- a/modules/def/src/main/clojure/clojure/contrib/def.clj +++ b/modules/def/src/main/clojure/clojure/contrib/def.clj @@ -71,7 +71,7 @@ making private definitions more succinct."} `(do (alter-meta! (if (.hasRoot (var ~orig)) - (def ~name (.getRoot (var ~orig))) + (def ~name (.getRawRoot (var ~orig))) (def ~name)) ;; When copying metadata, disregard {:macro false}. ;; Workaround for http://www.assembla.com/spaces/clojure/tickets/273 diff --git a/modules/ns-utils/src/main/clojure/clojure/contrib/ns_utils.clj b/modules/ns-utils/src/main/clojure/clojure/contrib/ns_utils.clj index ba8c43ce..592d7ccc 100644 --- a/modules/ns-utils/src/main/clojure/clojure/contrib/ns_utils.clj +++ b/modules/ns-utils/src/main/clojure/clojure/contrib/ns_utils.clj @@ -102,5 +102,5 @@ (doseq [[sym var] (ns-publics ns)] (let [sym (with-meta sym (assoc (meta var) :ns *ns*))] (if (.hasRoot var) - (intern *ns* sym (.getRoot var)) + (intern *ns* sym (.getRawRoot var)) (intern *ns* sym)))))) |