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

         (string? form))
     form

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

(defn read-syntax-quote

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

     (or (keyword? form)
