From 8b93c4fb1672cc2808d135df8cb98ece5cc8717c Mon Sep 17 00:00:00 2001 From: Rich Hickey Date: Wed, 11 Nov 2009 15:42:01 -0500 Subject: fix cache table setup --- src/clj/clojure/core_deftype.clj | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src') 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)) -- cgit v1.2.3-18-g5258