(->StringReader s s-len s-pos)
Positional factory function for class oakclojure.tools.reader.reader_types.StringReader.
Source
(deftype StringReader
[^String s ^long s-len ^:unsynchronized-mutable ^long s-pos]
Reader
(read-char [reader]
(when (> s-len s-pos)
(let [r (nth s s-pos)]
(update! s-pos inc)
r)))
(peek-char [reader]
(when (> s-len s-pos)
(nth s s-pos))))