sequences.extras: adding 2map-into.

2012-08-08 20:35:09 -07:00 · 2012-08-08 20:35:09 -07:00 · 5003b97509
parent e5b36cfbff
commit 5003b97509
1 changed files with 3 additions and 0 deletions
--- 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