CLJ-1549 Split IReduce into IReduceInit

Signed-off-by: Stuart Halloway <stu@cognitect.com>

Author: puredanger

src/clj/clojure/core.clj

@@ -6515,8 +6515,8 @@
   ([xform f coll] (transduce xform f (f) coll))
   ([xform f init coll]
      (let [f (xform f)
-           ret (if (instance? clojure.lang.IReduce coll)
-                 (.reduce ^clojure.lang.IReduce coll f init)
+           ret (if (instance? clojure.lang.IReduceInit coll)
+                 (.reduce ^clojure.lang.IReduceInit coll f init)
                  (clojure.core.protocols/coll-reduce coll f init))]
        (f ret))))
 
@@ -7264,7 +7264,7 @@
    clojure.lang.Seqable
    (seq [_] (seq (sequence xform coll)))
 
-   clojure.lang.IReduce
+   clojure.lang.IReduceInit
    (reduce [_ f init] (transduce xform f init coll))
 
    clojure.lang.Sequential)

src/jvm/clojure/lang/IReduce.java

@@ -12,8 +12,6 @@
 
 package clojure.lang;
 
-public interface IReduce{
+public interface IReduce extends IReduceInit{
 Object reduce(IFn f) ;
-
-Object reduce(IFn f, Object start) ;
 }

src/jvm/clojure/lang/IReduceInit.java

@@ -0,0 +1,15 @@
+/**
+ *   Copyright (c) Rich Hickey. All rights reserved.
+ *   The use and distribution terms for this software are covered by the
+ *   Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
+ *   which can be found in the file epl-v10.html at the root of this distribution.
+ *   By using this software in any fashion, you are agreeing to be bound by
+ * 	 the terms of this license.
+ *   You must not remove this notice, or any other, from this software.
+ **/
+
+package clojure.lang;
+
+public interface IReduceInit{
+Object reduce(IFn f, Object start) ;
+}