add each-with2 to shuffle

2006-11-17 03:41:23 +00:00 · 2006-11-17 03:41:23 +00:00 · f683fb506a
parent 3ca39859cc
commit f683fb506a
1 changed files with 4 additions and 0 deletions
--- a/contrib/shuffle/shuffle.factor
+++ b/contrib/shuffle/shuffle.factor
@ -21,3 +21,7 @@ IN: shuffle

 : map-with2 ( obj obj list quot -- newseq )
    swap [ with2 roll ] map 3nip ; inline
+
+: each-with2 ( obj obj list quot -- )
+    swap [ with2 roll ] map 3drop ;
+