use iota in replicate

diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index 177a157994b64cc133c1300beff6d07e692bb3b1..281290c3d219ee12502db6632a680483ef3d44bf 100755 (executable)
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@@ -424,9 +424,11 @@ PRIVATE>
     over map-as ; inline
 
 : replicate ( seq quot -- newseq )
+    [ iota ] dip
     [ drop ] prepose map ; inline
 
 : replicate-as ( seq quot exemplar -- newseq )
+    [ iota ] 2dip
     [ [ drop ] prepose ] dip map-as ; inline
 
 : change-each ( seq quot -- )