sequences.extras: using (each-index)

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index cc19f1e883adda08e6af5684dbf3094bb14b677d..27d3b82653ef1f233bffc161b82a3fb07d79a284 100644 (file)
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -359,7 +359,7 @@ PRIVATE>
     ] [ 3drop f ] if ; inline
 
 : map-index! ( ... seq quot: ( ... elt index -- ... newelt ) -- ... seq )
-    over [ [ (map-each-index) ] dip collect ] keep ; inline
+    over [ [ (each-index) ] dip collect ] keep ; inline
 
 <PRIVATE