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"
1257712577 (recur (inc i) (assoc out (aget ks i) (aget vs i)))
1257812578 out)))))
1257912579
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)
1258012582(defn simple-hash-map
1258112583 " keyval => key val
1258212584 Returns a new hash map with supplied mappings."
@@ -12638,4 +12640,4 @@ reduces them without incurring seq initialization"
1263812640 IPrintWithWriter
1263912641 (-pr-writer [coll writer opts] (pr-sequential-writer writer pr-writer " #{" " " " }" opts coll)))
1264012642
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