File tree Expand file tree Collapse file tree 1 file changed +3
-1
lines changed Expand file tree Collapse file tree 1 file changed +3
-1
lines changed Original file line number Diff line number Diff line change @@ -12577,6 +12577,8 @@ reduces them without incurring seq initialization"
12577
12577
(recur (inc i) (assoc out (aget ks i) (aget vs i)))
12578
12578
out)))))
12579
12579
12580
+ ; ; FIXME: calling this (simple-hash-map) expands the codesize significantly,
12581
+ ; ; not clear why at the moment, seems to do less than (hash-map)
12580
12582
(defn simple-hash-map
12581
12583
" keyval => key val
12582
12584
Returns a new hash map with supplied mappings."
@@ -12638,4 +12640,4 @@ reduces them without incurring seq initialization"
12638
12640
IPrintWithWriter
12639
12641
(-pr-writer [coll writer opts] (pr-sequential-writer writer pr-writer " #{" " " " }" opts coll)))
12640
12642
12641
- (set! (. Set -EMPTY) (Set. nil (simple-hash-map ) empty-unordered-hash))
12643
+ (set! (. Set -EMPTY) (Set. nil (. HashMap -EMPTY ) empty-unordered-hash))
You can’t perform that action at this time.
0 commit comments