 (defn render-content
   "Render the contents of a tag."
   [content]
-  (list*
+  (cons
     ">"
     (render-html
       (if (map? (first content))

           (not (symbol? x)))
      (quoted? x)))

(defn- collapse-strs
  "Concatenate adjacent strings in a sequence."
  [coll]

(defmacro html
  "Efficiently render a Clojure data structure into a seq of HTML."
  [& content]
  (compile-seq content))
