Skip to content


Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

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

  • Loading branch information...
commit 755647b4eb114dce0c99f8a93d72ce7fdbdbb495 1 parent 2ec7dbb
@senior senior authored
Showing with 4 additions and 2 deletions.
  1. +4 −2 src/main/clojure/clojure/data/xml.clj
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))
Please sign in to comment.
Something went wrong with that request. Please try again.