diff options
| author | Chouser <chouser@n01se.net> | 2009-04-09 03:59:58 +0000 |
|---|---|---|
| committer | Chouser <chouser@n01se.net> | 2009-04-09 03:59:58 +0000 |
| commit | 72336027585b54254ddc17ad9c90541e2a09c789 (patch) | |
| tree | 11a94b06d37e7a3c94cd84c6c74114a5b6e8666f /src/clojure/contrib/lazy_xml.clj | |
| parent | 86ecadd04ca189e44b4cb68e5bd6e5488c8f6029 (diff) | |
lazy-xml: fix laziness
Diffstat (limited to 'src/clojure/contrib/lazy_xml.clj')
| -rw-r--r-- | src/clojure/contrib/lazy_xml.clj | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/clojure/contrib/lazy_xml.clj b/src/clojure/contrib/lazy_xml.clj index 929ce025..72b6c5a5 100644 --- a/src/clojure/contrib/lazy_xml.clj +++ b/src/clojure/contrib/lazy_xml.clj @@ -101,9 +101,10 @@ [[elem & events]] (lazy-seq (let [sibs (siblings events)] + ;(prn :elem elem) (cons (struct element (:name elem) (:attrs elem) (drop-last sibs)) - (last sibs))))) + (lazy-seq (last sibs)))))) (defn parse-trim "Parses the source s, which can be a File, InputStream or String |