From f683fb506a1a9c2163c44779a43c5709de809d02 Mon Sep 17 00:00:00 2001
From: erg <erg@trifocus.net>
Date: Fri, 17 Nov 2006 03:41:23 +0000
Subject: [PATCH] add each-with2 to shuffle

---
 contrib/shuffle/shuffle.factor | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/contrib/shuffle/shuffle.factor b/contrib/shuffle/shuffle.factor
index e55264917e..c0f7116a38 100644
--- 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 ;
+