     '()
     (reverse coll)))
 
-(defn- build-str-concat
+(defn build-str-concat
   "Build code to string concatenate a sequence of forms."
   [coll]
   (let [buffer (gensym "buffer")]

    (pre-compile `(make-start-tag ~tag))
    (pre-compile `(make-tag-attrs ~(first content)))
    (list ">")
    (for [item (remove-attrs content)]
      (compile-html item))
    (pre-compile `(make-end-tag ~tag))))

(defmethod compile-html IPersistentList

  "Efficiently compile a Clojure data structure to HTML"
  [& content]
  (build-str-concat
    (mapcat compile-html content)))
