CLJ-1669 - replace LazyTransformer with TransformerIterator. eduction takes multiple xforms. iterator-seq is now chunked.

Signed-off-by: Stuart Halloway <[email protected]>

Author: puredanger

src/clj/clojure/core.clj

@@ -2526,9 +2526,15 @@
      (if (seq? coll) coll
          (or (seq coll) ())))
   ([xform coll]
-     (clojure.lang.LazyTransformer/create xform coll))
+     (or (clojure.lang.RT/chunkIteratorSeq
+         (clojure.lang.TransformerIterator/create xform (clojure.lang.RT/iter coll)))
+       ()))
   ([xform coll & colls]
-     (clojure.lang.LazyTransformer/createMulti xform (to-array (cons coll colls)))))
+     (or (clojure.lang.RT/chunkIteratorSeq
+         (clojure.lang.TransformerIterator/createMulti
+           xform
+           (map #(clojure.lang.RT/iter %) (cons coll colls))))
+       ())))
 
 (defn every?
   "Returns true if (pred x) is logical true for every x in coll, else
@@ -5473,7 +5479,7 @@
   {:added "1.0"
    :static true}
   [iter]
-  (clojure.lang.IteratorSeq/create iter))
+  (clojure.lang.RT/chunkIteratorSeq iter))
 
 (defn enumeration-seq
   "Returns a seq on a java.util.Enumeration"
@@ -7320,10 +7326,8 @@
 
 (deftype Eduction [xform coll]
    Iterable
-   (iterator [_] (.iterator ^java.util.Collection (sequence xform coll)))
-
-   clojure.lang.Seqable
-   (seq [_] (seq (sequence xform coll)))
+   (iterator [_]
+     (clojure.lang.TransformerIterator/create xform (clojure.lang.RT/iter coll)))
 
    clojure.lang.IReduceInit
    (reduce [_ f init]
@@ -7333,12 +7337,14 @@
    clojure.lang.Sequential)
 
 (defn eduction
-  "Returns a reducible/iterable/seqable application of
-  the transducer to the items in coll. Note that these applications
-  will be performed every time reduce/iterator/seq is called."
-  {:added "1.7"}
-  [xform coll]
-  (Eduction. xform coll))
+  "Returns a reducible/iterable application of the transducers
+  to the items in coll. Transducers are applied in order as if
+  combined with comp. Note that these applications will be
+  performed every time reduce/iterator is called."
+  {:arglists '([xform* coll])
+   :added "1.7"}
+  [& xforms]
+  (Eduction. (apply comp (butlast xforms)) (last xforms)))
 
 (defmethod print-method Eduction [c, ^Writer w]
   (if *print-readably*