Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

sequences.extras: adding 2map!.

  • Loading branch information...
commit 567b0abdb74b0837f85a0c2a1d9bdd6567afc440 1 parent bb3974e
John Benediktsson mrjbq7 authored
Showing with 3 additions and 0 deletions.
  1. +3 −0  extra/sequences/extras/extras.factor
3  extra/sequences/extras/extras.factor
View
@@ -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
Please sign in to comment.
Something went wrong with that request. Please try again.