                       ValueFactory/newBooleanNode)
     :attribute clj-val ;; doesn't seem to be implemented by ValueFactory: "java.lang.InternalError Unrecognized valueType: attribute()"
     :binary clj-val ;; TODO
-    :comment clj-val ;; TODO
+    :comment clj-val ;; TODO, also really :comment-node
 
     :cts-box (str clj-val) ;; 4-element sequence or String
     :cts-circle (let [[radius [latitude longitude]] clj-val]

   ;; default:
   nil ValueType/XS_STRING})

(defn wrap-val
  "Given a Clojure value, returns a value in a type appropriate for a
  MarkLogic XdmVariable."

                                                                 (str longitude)))
                                     vertices))))

    :document (->xml-str clj-val) ;; :document-node, really, but we're following ValueType
    :element (->xml-str clj-val)
    :js-array (ValueFactory/newJSArray (json/write-str clj-val))
    :js-object (ValueFactory/newJSObject (json/write-str clj-val))
    :node clj-val
