Skip to content
Browse files

Fix for emit-element holding onto the head of the lazy-seq of elements (

  • Loading branch information...
1 parent 2ec7dbb commit 755647b4eb114dce0c99f8a93d72ce7fdbdbb495 @senior senior committed May 22, 2012
Showing with 4 additions and 2 deletions.
  1. +4 −2 src/main/clojure/clojure/data/xml.clj
View
6 src/main/clojure/clojure/data/xml.clj
@@ -34,8 +34,10 @@
(.writeAttribute writer (name k) (str v)))))
; Represents a node of an XML tree
-(defrecord Element [tag attrs content]
- Emit
+(defrecord Element [tag attrs content])
+
+(extend-protocol Emit
+ Element
(emit-element [e writer]
(let [nspace (namespace (:tag e))
qname (name (:tag e))

0 comments on commit 755647b

Please sign in to comment.
Something went wrong with that request. Please try again.