From 5003b97509c427002b02fc8c6c6e7aaba46d6a8e Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Wed, 8 Aug 2012 20:35:09 -0700 Subject: [PATCH] sequences.extras: adding 2map-into. --- 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 e353064aef..835f998f1c 100644 --- 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