diff options
| author | Rich Hickey <richhickey@gmail.com> | 2011-05-18 10:23:33 -0400 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2011-05-18 10:23:33 -0400 |
| commit | bc9f7ce70f9ac7f88504f7d3267768a563fb6107 (patch) | |
| tree | 82d5194262a8afd6bd3c7d2be02b1ac4baebf99c | |
| parent | 0d410dfe7c26ea4c8050d24cb5409b6c6c614f8d (diff) | |
fix record = when field named same as method - fixes clj-796
| -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#)] |