        (let [seq (seq form)]
          (if seq
            (syntax-quote-coll nil seq)
-           (cons 'clojure.core/list nil)))
+           '(clojure.core/list)))
        :else (throw (UnsupportedOperationException. "Unknown Collection type")))
 
      (or (keyword? form)

         (string? form))
     form

     :else (cons 'quote (cons form nil)))
   (add-meta form)))

(defn read-syntax-quote

(defn wrapping-reader
  [sym]
  (fn [rdr _]
    (list sym (read rdr true nil true) nil)))

(defn throwing-reader
  [msg]
