(defn
throw-eof-delimited
([rdr kind column line]
(throw-eof-delimited rdr kind line column nil))
([rdr kind line column n]
(eof-error
rdr
"Unexpected EOF while reading "
(if n (str "item " n " of "))
(name kind)
(if line (str ", starting at line " line " and column " column))
".")))