               (reset-meta! o m)))
           (reader-error rdr "Metadata can only be applied to IMetas"))))))
 
-(defrecord SyntaxQuotedSet [val])
 (defn- read-set
   [rdr _]
   (let [[start-line start-column] (when (indexing-reader? rdr)
                                     [(get-line-number rdr) (int (dec (get-column-number rdr)))])
-        the-set (if gensym-env
-                  (SyntaxQuotedSet. (read-delimited \} rdr true))
-                  (PersistentHashSet/createWithCheck (read-delimited \} rdr true)))
+        the-set (PersistentHashSet/createWithCheck (read-delimited \} rdr true))
         [end-line end-column] (when (indexing-reader? rdr)
                                 [(get-line-number rdr) (int (get-column-number rdr))])]
     (with-meta the-set

         ^:dynamic *read-eval*
         ^:dynamic *data-readers*
         ^:dynamic *default-data-reader-fn*
         ^:dynamic ^:private gensym-env
         default-data-readers)

(defn- macro-terminating? [ch]


(defn- read-unquote
  [rdr comma]
  (if-let [ch (peek-char rdr)]
    (if (identical? \@ ch)
      ((wrapping-reader 'clojure.core/unquote-splicing) (doto rdr read-char) \@)
      ((wrapping-reader 'clojure.core/unquote) rdr \~))))

(declare syntax-quote*)
(defn- unquote-splicing? [form]
