   [ch]
   (= \; ch))
 
-(defn- meta-prefix?
-  "Checks whether the character begins metadata"
-  [ch]
-  (= \^ ch))
-
 (defn- number-literal?
   "Checks whether the reader is at the start of a number literal"
   [reader ch]


(defn read-delimited-list
  [delim rdr recursive?]
  (loop [a ()]
    (let [ch (read-past whitespace? rdr)]
      (when-not ch (throw "EOF"))
      (if (= delim ch)
        a
        (if-let [macrofn (get rmacros ch)]
          (let [mret (macrofn rdr ch)]
            (recur (if (= mret rdr) a (conj a mret))))
          (do

     (nil? ch) sentinel
     (whitespace? ch) (recur reader eof-is-error sentinel is-recursive)
     (comment-prefix? ch) (recur (skip-line reader) eof-is-error sentinel is-recursive)
     (macros ch) ((macros ch) reader ch)
     :default (read-symbol reader ch))))


