make xml-zip more tolerant on the type of :content

seancorfield · Mar 28, 2010 · 3671abf · 3671abf
1 parent 6efdadc
commit 3671abf
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/net/cgrand/xml.clj b/src/net/cgrand/xml.clj
@@ -27,7 +27,7 @@
  given a root element"
  [root]
    (z/zipper #(or (tag? %) (document? %)) 
-     :content #(assoc %1 :content (and %2 (apply vector %2))) root))
+     (comp seq :content) #(assoc %1 :content %2) root))
 
 (defn- insert-element [loc e]
   (-> loc (z/append-child e) z/down z/rightmost))