diff options
| author | Stuart Sierra <mail@stuartsierra.com> | 2010-10-26 13:52:41 -0400 |
|---|---|---|
| committer | Stuart Sierra <mail@stuartsierra.com> | 2010-10-26 13:52:41 -0400 |
| commit | 6b0ced91e42eca3be551f10468abcb9a2983d7b8 (patch) | |
| tree | b2670045c80af4d356ab6c2dff73ecb35185ec26 | |
| parent | 31248059f60cc0f1308525896a8deb8b3e773198 (diff) | |
Rename Var.getRoot to Var.getRawRoot
| -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)))))) |