   "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"

(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."

     (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))))


