 
     (coll? form)
     (cond
-     (instance? SyntaxQuotedMap form) (syntax-quote-coll (map-func form) (:val form))
-     (instance? SyntaxQuotedSet form) (syntax-quote-coll 'clojure.core/hash-set (:val form))
 
      (instance? IRecord form) form
      (map? form) (syntax-quote-coll (map-func form) (flatten-map form))
      (vector? form) (list 'clojure.core/vec (syntax-quote-coll nil form))
      (set? form) (syntax-quote-coll 'clojure.core/hash-set form)
-
      (or (seq? form) (list? form))
      (let [seq (seq form)]
        (if seq

          :end-line end-line
          :end-column end-column})))))

(defrecord SyntaxQuotedMap [val])
(defn- read-map
  [rdr _]
  (let [[start-line start-column] (when (indexing-reader? rdr)

        map-count (count the-map)
        [end-line end-column] (when (indexing-reader? rdr)
                                [(get-line-number rdr) (int (get-column-number rdr))])]
    (when (odd? map-count)
      (reader-error rdr "Map literal must contain an even number of forms"))
    (with-meta
      (if (zero? map-count)
        {}
        (RT/map (to-array the-map)))
      (when start-line
        (merge
         (when-let [file (get-file-name rdr)]
