From a2615a84d22aa753a66dc67da6ee13b02c6dfbeb Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Wed, 26 Jan 2022 09:13:41 -0800
Subject: [PATCH] sequences.extras: fixing each-index-from for unslicing
 changes

---
 extra/sequences/extras/extras.factor | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index cc19f1e883..24d148b2e6 100644
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -551,8 +551,15 @@ PRIVATE>
 : nth* ( n seq -- elt )
     [ length 1 - swap - ] [ nth ] bi ; inline
 
+<PRIVATE
+
+: (each-index-from) ( seq quot i -- i n quot' )
+    [ (each-index) ] dip [ + ] curry 2dip ; inline
+
+PRIVATE>
+
 : each-index-from ( ... seq quot: ( ... elt index -- ... ) i -- ... )
-    -rot (each-index) (each-integer) ; inline
+    (each-index-from) (each-integer) ; inline
 
 <PRIVATE
 
-- 
2.34.1