function | removed v1.9.854 | added v0.0-927 | Edit |
(read-list rdr _)
(defn read-list
[rdr _]
(let [arr (read-delimited-list ")" rdr true)]
(loop [i (alength arr) ^not-native r ()]
(if (> i 0)
(recur (dec i) (-conj r (aget arr (dec i))))
r))))