   ([elt fn-and-args body]
     (compile-directive elt fn-and-args body nil))
   ([_ [f & args] body body-args]
-    `(~f ~@args (with-meta (fn [~@body-args] ~body) {::type :call-body}))))
+    `(~f ~@args (with-meta (fn [~@body-args] ~body) {:type ::call-body}))))
     
     
 (defn compile-element [elt]

;; Elements are inserted as-is.
(defmethod xml-value xml/element-type [x]
  x)

;; This is a special case that handles "call-with-content".
;; Example:

;; compiles to
;;   (Element. :foo nil ["Hello " (xml-value name)])

(defmulti xml-value type)

;; The default is just to stringify the object.
(defmethod xml-value :default [x] 
