sequences.extras: adding 2map!.

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index 835f998f1c1352afdc581e74fda5f9f7fefe4283..6fffa4fe45f71dc0faf79f776cb5d0e5ceb7c4ff 100644 (file)
--- 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