      (list-prefix? ch) (read-list reader ch)
      (vector-prefix? ch) (read-vector reader ch)
      (map-prefix? ch) (read-map reader ch)
+     (meta-prefix? ch) (read-meta reader ch)
      :default (read-symbol reader ch))))
 
 

(defn read-symbol
  [reader initch is-recursive])

(defn read
  "Reads the first object from a PushbackReader. Returns the object read.
Returns sentinel if the reader did not contain any forms."

  "Checks whether the character begins a comment."
  [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"
