sequences.extras: fixing each-index-from for unslicing changes

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index cc19f1e883adda08e6af5684dbf3094bb14b677d..24d148b2e615da273014919c45df969b00df874f 100644 (file)
--- 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