File tree Expand file tree Collapse file tree 1 file changed +3
-3
lines changed Expand file tree Collapse file tree 1 file changed +3
-3
lines changed Original file line number Diff line number Diff line change @@ -12414,7 +12414,7 @@ reduces them without incurring seq initialization"
12414
12414
(when (pos? (alength keys))
12415
12415
(prim-seq
12416
12416
(.map (.sort keys obj-map-compare-keys)
12417
- #(unchecked-get strobj %)) 0 )))
12417
+ #(MapEntry. % ( unchecked-get strobj %))) )))
12418
12418
12419
12419
ICounted
12420
12420
(-count [coll] (alength keys))
@@ -12558,11 +12558,11 @@ reduces them without incurring seq initialization"
12558
12558
(loop [i 0 ]
12559
12559
(if (< i cnt)
12560
12560
(let [bckt (unchecked-get hashobj (aget hashes i))
12561
- len (alength bkt )]
12561
+ len (alength bckt )]
12562
12562
(loop [j 0 ]
12563
12563
(when (< j len)
12564
12564
(do
12565
- (.push arr (MapEntry. (aget bkt j) (aget bkt (inc j)) nil ))
12565
+ (.push arr (MapEntry. (aget bckt j) (aget bckt (inc j)) nil ))
12566
12566
(recur (+ j 2 )))))
12567
12567
(recur (inc i)))
12568
12568
(prim-seq arr))))))
You can’t perform that action at this time.
0 commit comments