fix map-index always producing array

diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index 634d1464166f9b98ab29a27224ffd6e8857e61de..6605e6f88e2dda355f308d1d970d3715d3dfe325 100644 (file)
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@@ -633,7 +633,7 @@ PRIVATE>
     [ dup length <iota> ] 2dip 2map-as ; inline
 
 : map-index ( ... seq quot: ( ... elt index -- ... newelt ) -- ... newseq )
-    { } map-index-as ; inline
+    over map-index-as ; inline
 
 : interleave ( ... seq between quot: ( ... elt -- ... ) -- ... )
     pick empty? [ 3drop ] [