diff options
| author | Stuart Halloway <stu@thinkrelevance.com> | 2011-05-13 13:17:29 -0400 |
|---|---|---|
| committer | Stuart Halloway <stu@thinkrelevance.com> | 2011-05-13 13:17:29 -0400 |
| commit | 914b77f25773a646d4706e179d427fce7bb745af (patch) | |
| tree | abd80f4834bf02c40d0daf2db36927007965bfb0 | |
| parent | 8ed6e82d4d85e682ecc49e6b63a135980a531bfb (diff) | |
Revert "get rid of spurious tags on deftype/defrecord"
This reverts commit 8ed6e82d4d85e682ecc49e6b63a135980a531bfb.
| -rw-r--r-- | src/clj/clojure/core_deftype.clj | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/clj/clojure/core_deftype.clj b/src/clj/clojure/core_deftype.clj index a5f7a6df..97ccd05b 100644 --- a/src/clj/clojure/core_deftype.clj +++ b/src/clj/clojure/core_deftype.clj @@ -135,7 +135,8 @@ "Do not use this directly - use defrecord" {:added "1.2"} [tagname name fields interfaces methods] - (let [classname (with-meta (symbol (str (namespace-munge *ns*) "." name)) (meta name)) + (let [tag (keyword (str *ns*) (str tagname)) + classname (with-meta (symbol (str (namespace-munge *ns*) "." name)) (meta name)) interfaces (vec interfaces) interface-set (set (map resolve interfaces)) methodname-set (set (map first methods)) @@ -292,6 +293,7 @@ (let [gname name [interfaces methods opts] (parse-opts+specs opts+specs) classname (symbol (str (namespace-munge *ns*) "." gname)) + tag (keyword (str *ns*) (str name)) hinted-fields fields fields (vec (map #(with-meta % nil) fields))] `(let [] @@ -383,6 +385,7 @@ (let [gname name [interfaces methods opts] (parse-opts+specs opts+specs) classname (symbol (str (namespace-munge *ns*) "." gname)) + tag (keyword (str *ns*) (str name)) hinted-fields fields fields (vec (map #(with-meta % nil) fields))] `(let [] |