 ;; Elements are inserted as-is.
 (defmethod xml-value xml/element-type [x]
   x)
+
+(defmethod xml-value clojure.lang.Sequential [x]
+  (map xml-value x))
 
 ;; This is a special case that handles "call-with-content".
 ;; Example:

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

(defmulti xml-value (fn [x] (or (::type (meta x)) (type x))))

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

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


