diff options
author | Rich Hickey <richhickey@gmail.com> | 2011-05-12 18:10:12 -0400 |
---|---|---|
committer | Rich Hickey <richhickey@gmail.com> | 2011-05-12 18:10:12 -0400 |
commit | 8ed6e82d4d85e682ecc49e6b63a135980a531bfb (patch) | |
tree | 5356b26e211d5e8dd900ac95bc52579e732f8895 | |
parent | fe0cfc71e6ec7b546066188c555b01dae0e368e8 (diff) |
get rid of spurious tags on deftype/defrecord
-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 97ccd05b..a5f7a6df 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)) @@ -293,7 +292,6 @@ (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 [] @@ -385,7 +383,6 @@ (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 [] |