From 567b0abdb74b0837f85a0c2a1d9bdd6567afc440 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Wed, 8 Aug 2012 20:55:26 -0700 Subject: [PATCH] sequences.extras: adding 2map!. --- extra/sequences/extras/extras.factor | 3 +++ 1 file changed, 3 insertions(+) diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor index 835f998f1c..6fffa4fe45 100644 --- 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