From 0e9427d874a9f4d683c0b58eba84b3f7ad8a49f3 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sat, 22 Jan 2022 20:58:03 -0800
Subject: [PATCH] Revert "sequences: unslicing in binary-reduce"

This reverts commit 25251da8445cb2841ab31c8ba23af74c36541934.
---
 core/sequences/sequences.factor | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index f090543020..b1524145d4 100644
--- 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 ;
-- 
2.34.1