Simplify window transducer arity

Author: tomdl89

src/medley/core.cljc

@@ -516,22 +516,16 @@
   {:added "1.9.0"}
   ([n]
    (fn [rf]
-     (if (zero? n)
+     (let [part #?(:clj (java.util.ArrayList. n) :cljs (array))]
        (fn
          ([] (rf))
-         ([result] (unreduced (rf result)))
-         ([result _x] (rf result [])))
-       (let [part #?(:clj (java.util.ArrayList. n) :cljs (array))]
-         (fn
-           ([] (rf))
-           ([result]
-            (unreduced (rf result)))
-           ([result x]
-            (when (= n #?(:clj (.size part) :cljs (.-length part)))
-              #?(:clj (.remove part 0) :cljs (.shift part)))
-            (when-not (reduced? result)
-              #?(:clj (.add part x) :cljs (.push part x)))
-            (rf result (vec #?(:clj (.toArray part) :cljs (.slice part))))))))))
+         ([result]
+          (rf result))
+         ([result x]
+          #?(:clj (.add part x) :cljs (.push part x))
+          (when (< n #?(:clj (.size part) :cljs (.-length part)))
+            #?(:clj (.remove part 0) :cljs (.shift part)))
+          (rf result (vec #?(:clj (.toArray part) :cljs (.slice part)))))))))
   ([n coll]
    (letfn [(part [part-n coll]
              (let [run (doall (take part-n coll))]