cljs.reader/read-delimited-list
function | removed v1.9.854 | added v0.0-927 | Edit |
(read-delimited-list delim rdr recursive?)
(defn read-delimited-list
[delim rdr recursive?]
(loop [a (array)]
(let [ch (read-past whitespace? rdr)]
(when-not ch (reader-error rdr "EOF while reading"))
(if (identical? delim ch)
a
(if-let [macrofn (macros ch)]
(let [mret (macrofn rdr ch)]
(recur (if (identical? mret rdr) a (do
(.push a mret)
a))))
(do
(unread rdr ch)
(let [o (read rdr true nil recursive?)]
(recur (if (identical? o rdr) a (do
(.push a o)
a))))))))))