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

[factor.git] / extra / sequences / extras / extras.factor

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index 24d148b2e615da273014919c45df969b00df874f..cc19f1e883adda08e6af5684dbf3094bb14b677d 100644 (file)
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -551,15 +551,8 @@ 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 -- ... )
-    (each-index-from) (each-integer) ; inline
+    -rot (each-index) (each-integer) ; inline
 
 <PRIVATE