function | removed v1.9.854 | added v0.0-927 | Edit |
(read-past pred rdr)
Read until first character that doesn't match pred, returning char.
(defn read-past
[pred rdr]
(loop [ch (read-char rdr)]
(if (pred ch)
(recur (read-char rdr))
ch)))