sequences.extras: adding 2map!.

2012-08-08 20:55:26 -07:00 · 2012-08-08 20:55:26 -07:00 · 567b0abdb7
parent bb3974ec58
commit 567b0abdb7
1 changed files with 3 additions and 0 deletions
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@ -230,3 +230,6 @@ PRIVATE>

 : 2map-into ( seq1 seq2 quot into -- )
    [ (2each) ] dip collect ; inline
+
+: 2map! ( ... seq1 seq2 quot: ( ... elt1 elt2 -- ... newelt ) -- ... seq1 )
+    pick [ 2map-into ] keep ; inline