 
 (defn read-set
   [rdr _]
-  (PersistentHashSet/createWithCheck (read-delimited-list \} rdr true)))
+  (PersistentHashSet/createWithCheck (read-delimited \} rdr true)))
 
 (defn read-regex
   [rdr ch]

  [rdr _]
  (let [[line column] (when (indexing-reader? rdr)
                        [(get-line-number rdr) (dec (get-column-number rdr))])
        the-vector (read-delimited-list \] rdr true)]
    (with-meta the-vector
      (when line
        {:line line :column column}))))

  [rdr _]
  (let [[line column] (when (indexing-reader? rdr)
                        [(get-line-number rdr) (dec (get-column-number rdr))])
        l (to-array (read-delimited \} rdr true))]
    (when (== 1 (bit-and (alength l) 1))
      (reader-error rdr "Map literal must contain an even number of forms"))
    (with-meta (RT/map l)
