diff options
| author | Rich Hickey <richhickey@gmail.com> | 2009-11-11 15:42:01 -0500 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2009-11-11 15:42:01 -0500 |
| commit | 8b93c4fb1672cc2808d135df8cb98ece5cc8717c (patch) | |
| tree | 251e8bf0303b8b7ed729704a7303fb0647535091 | |
| parent | 766b248f7d097c2c62e809ef6de2e6afd3850fc9 (diff) | |
fix cache table setup
| -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)) |