 
 (defn not-implemented
   [rdr ch]
-  (throw (str "Reader for " ch " not implemented yet")))
+  (reader-error rdr "Reader for " ch " not implemented yet"))
 
 (defn read-dispatch
   [rdr _]

  [delim rdr recursive?]
  (loop [a []]
    (let [ch (read-past whitespace? rdr)]
      (when-not ch (throw "EOF"))
      (if (= delim ch)
        a
        (if-let [macrofn (get macros ch)]


(defn read-unicode-char
  [reader initch]
  (reader-error reader "Unicode characters not supported by reader (yet)"))

(defn escape-char
  [buffer reader]
