summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRich Hickey <richhickey@gmail.com>2011-05-12 18:10:12 -0400
committerRich Hickey <richhickey@gmail.com>2011-05-12 18:10:12 -0400
commit8ed6e82d4d85e682ecc49e6b63a135980a531bfb (patch)
tree5356b26e211d5e8dd900ac95bc52579e732f8895
parentfe0cfc71e6ec7b546066188c555b01dae0e368e8 (diff)
get rid of spurious tags on deftype/defrecord
-rw-r--r--src/clj/clojure/core_deftype.clj5
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 []