sequences.extras: fix map-index!

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

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index 27d3b82653ef1f233bffc161b82a3fb07d79a284..cc19f1e883adda08e6af5684dbf3094bb14b677d 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 [ [ (each-index) ] dip collect ] keep ; inline
+    over [ [ (map-each-index) ] dip collect ] keep ; inline
 
 <PRIVATE