core: Better names for (each) etc

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

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index 334f352638b644641614146b6fba3c7d2eb40a82..830dedb9971cea5c9dbe0e2e8df9e0778f7caa7b 100644 (file)
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -384,7 +384,7 @@ PRIVATE>
     ] [ 3drop f ] if ; inline
 
 : map-index! ( ... seq quot: ( ... elt index -- ... newelt ) -- ... seq )
-    over [ [ (each-index) ] dip collect ] keep ; inline
+    over [ [ sequence-index-iterator ] dip collect ] keep ; inline
 
 <PRIVATE
 
@@ -598,7 +598,7 @@ PRIVATE>
     [ length 1 - swap - ] [ nth ] bi ; inline
 
 : each-index-from ( ... seq quot: ( ... elt index -- ... ) i -- ... )
-    -rot (each-index) each-integer-from ; inline
+    -rot sequence-index-iterator each-integer-from ; inline
 
 <PRIVATE