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

    (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

    '()
    (reverse coll)))

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