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 71ecd842..efde3022 100644 --- a/src/clj/clojure/core_deftype.clj +++ b/src/clj/clojure/core_deftype.clj @@ -227,7 +227,7 @@ [shift mask] (min-hash (keys cs)) table (make-array Object (* 2 (inc mask))) table (reduce (fn [#^objects t [c f]] - (let [i (int (shift-mask shift mask (hash c)))] + (let [i (* 2 (int (shift-mask shift mask (hash c))))] (aset t i c) (aset t (inc i) f) t)) |