 ;; compiles to
 ;;   (Element. :foo nil ["Hello " (xml-value name)])
 
-(defmulti xml-value (fn [x] (or (::type (meta x)) (type x))))
+(defmulti xml-value type)
 
 ;; The default is just to stringify the object.
 (defmethod xml-value :default [x] 

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

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

;;   $(foo 23)
;;   <rap:call fn='foo'>...etc...</rap:call>
;; 
(defmethod xml-value ::call-body [f]
  (f))


