function | removed v1.9.854 | added v0.0-927 | Edit |
(read-map rdr _)
(defn read-map
[rdr _]
(let [l (read-delimited-list "}" rdr true)
c (alength l)]
(when (odd? c)
(reader-error rdr "Map literal must contain an even number of forms"))
(if (<= c (* 2 (.-HASHMAP-THRESHOLD PersistentArrayMap)))
(.createWithCheck PersistentArrayMap l)
(.createWithCheck PersistentHashMap l))))