diff options
| -rw-r--r-- | src/clj/clojure/core_deftype.clj | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/clj/clojure/core_deftype.clj b/src/clj/clojure/core_deftype.clj index 8c04f80c..a810d0e0 100644 --- a/src/clj/clojure/core_deftype.clj +++ b/src/clj/clojure/core_deftype.clj @@ -191,7 +191,7 @@ (or (identical? this# ~gs) (when (identical? (class this#) (class ~gs)) (let [~gs ~(with-meta gs {:tag tagname})] - (and ~@(map (fn [fld] `(= ~fld (. ~gs ~fld))) base-fields) + (and ~@(map (fn [fld] `(= ~fld (. ~gs ~(keyword fld)))) base-fields) (= ~'__extmap (. ~gs ~'__extmap)))))))) `(containsKey [this# k#] (not (identical? this# (.valAt this# k# this#)))) `(entryAt [this# k#] (let [v# (.valAt this# k# this#)] |