sequences.extras: adding 2map-into.

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index e353064aef07255a7f1904b817a22aa6559495e6..835f998f1c1352afdc581e74fda5f9f7fefe4283 100644 (file)
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -227,3 +227,6 @@ PRIVATE>
 
 : map-index! ( ... seq quot: ( ... elt index -- ... newelt ) -- ... seq )
     over [ [ (each-index) ] dip collect ] keep ; inline
+
+: 2map-into ( seq1 seq2 quot into -- )
+    [ (2each) ] dip collect ; inline