Skip to content

Commit d1a6b1d

Browse files
committed
fix MapEntry construction
1 parent 2940738 commit d1a6b1d

File tree

1 file changed

+1
-3
lines changed

1 file changed

+1
-3
lines changed

src/main/cljs/cljs/core.cljs

Lines changed: 1 addition & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -12514,7 +12514,7 @@ reduces them without incurring seq initialization"
1251412514
(-seq [coll]
1251512515
(when (pos? count)
1251612516
(let [hashes (.sort (js-keys hashobj))]
12517-
(mapcat #(map (fn [[k v]] (MapEntry. k v)) (partition 2 (unchecked-get hashobj %)))
12517+
(mapcat #(map (fn [[k v]] (MapEntry. k v nil)) (partition 2 (unchecked-get hashobj %)))
1251812518
hashes))))
1251912519

1252012520
ICounted
@@ -12588,8 +12588,6 @@ reduces them without incurring seq initialization"
1258812588
(recur (inc i) (assoc out (aget ks i) (aget vs i)))
1258912589
out)))))
1259012590

12591-
;; FIXME: calling this (simple-hash-map) expands the codesize significantly,
12592-
;; not clear why at the moment, seems to do less than (hash-map)
1259312591
(defn simple-hash-map
1259412592
"keyval => key val
1259512593
Returns a new hash map with supplied mappings."

0 commit comments

Comments
 (0)