diff options
| author | Stuart Halloway <stu@thinkrelevance.com> | 2011-05-13 13:32:17 -0400 |
|---|---|---|
| committer | Stuart Halloway <stu@thinkrelevance.com> | 2011-05-13 13:32:17 -0400 |
| commit | ca1d49a1491440a809f2f8cfe27fce46e0db4dff (patch) | |
| tree | 3b2987ff32af9a18cfd1da99ce069d403f2a2b85 | |
| parent | ac1e8ad9f182dc2e8a5254f3e4b7b77c0258353d (diff) | |
get rid of spurious tags on deftype/defrecord (again!)
| -rw-r--r-- | src/clj/clojure/core_deftype.clj | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/src/clj/clojure/core_deftype.clj b/src/clj/clojure/core_deftype.clj index f7fb67f4..8c04f80c 100644 --- a/src/clj/clojure/core_deftype.clj +++ b/src/clj/clojure/core_deftype.clj @@ -135,8 +135,7 @@ "Do not use this directly - use defrecord" {:added "1.2"} [tagname name fields interfaces methods] - (let [tag (keyword (str *ns*) (str tagname)) - classname (with-meta (symbol (str (namespace-munge *ns*) "." name)) (meta name)) + (let [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)) @@ -297,7 +296,6 @@ [interfaces methods opts] (parse-opts+specs opts+specs) ns-part (namespace-munge *ns*) classname (symbol (str ns-part "." gname)) - tag (keyword (str *ns*) (str name)) hinted-fields fields fields (vec (map #(with-meta % nil) fields))] `(let [] @@ -383,7 +381,6 @@ [interfaces methods opts] (parse-opts+specs opts+specs) ns-part (namespace-munge *ns*) classname (symbol (str ns-part "." gname)) - tag (keyword (str *ns*) (str name)) hinted-fields fields fields (vec (map #(with-meta % nil) fields))] `(let [] |