(number-literal? reader initch)
Checks whether the reader is at the start of a number literal
Source
(defn
number-literal?
"Checks whether the reader is at the start of a number literal"
[reader initch]
(or
(numeric? initch)
(and
(or (identical? \+ initch) (identical? \- initch))
(numeric? (peek-char reader)))))