Permalink
Browse files

Removed a unecessary lazy-seq around emit events, speeds up emitting

  • Loading branch information...
1 parent 811cb84 commit 6f52675709dcb781b506c6f689c647baa028a525 @senior senior committed Jun 26, 2012
Showing with 1 addition and 2 deletions.
  1. +1 −2 src/main/clojure/clojure/data/xml.clj
@@ -69,8 +69,7 @@
(gen-event (first e)))
(next-events [e next]
(if-let [r (seq (rest e))]
- (lazy-seq (cons (next-events (first e) (rest e))
- next))
+ (cons (next-events (first e) r) next)
(next-events (first e) next)))
String
(gen-event [e]

0 comments on commit 6f52675

Please sign in to comment.