function | removed v1.9.854 | added v0.0-927 | Edit |
(skip-line reader _)
Advances the reader to the end of a line. Returns the reader
(defn skip-line
[reader _]
(loop []
(let [ch (read-char reader)]
(if (or (identical? ch \newline) (identical? ch \return) (nil? ch))
reader
(recur)))))