Revert "sequences: unslicing in binary-reduce"

This reverts commit 25251da8445cb2841ab31c8ba23af74c36541934.

diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index f090543020e7d9438c4156b67e3e2e2680c4ea0e..b1524145d4af27eedc2633a0935b9f25df5d784c 100644 (file)
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@@ -1017,11 +1017,7 @@ PRIVATE>
 PRIVATE>
 
 : binary-reduce ( seq start quot: ( elt1 elt2 -- newelt ) -- value )
-    pick dup slice? [
-        [ seq>> ] 3dip [ from>> 0 max ] [ to>> 0 max over - ] bi
-    ] [
-        length 0 max 0 swap
-    ] if (binary-reduce) ; inline
+    pick length 0 max 0 swap (binary-reduce) ; inline
 
 : cut ( seq n -- before after )
     [ head ] [ tail ] 2bi ;