sequences.extras: adding replicate-into.

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index b1196e45e0a1750b3846e080a862ed7cbc8d090f..a138525f123a9df755459d1e1e84855f3591c95f 100644 (file)
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -524,3 +524,6 @@ PRIVATE>
 
 : change-last-unsafe ( seq quot -- )
     [ drop length 1 - ] [ change-nth-unsafe ] 2bi ; inline
+
+: replicate-into ( ... seq quot: ( ... -- ... newelt ) -- ... )
+    over [ length ] 2dip '[ _ dip _ set-nth-unsafe ] each-integer ; inline