From ef6634337db1d0d45b157e49537b75bc6a799ba9 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Tue, 16 Jun 2009 14:05:39 -0500
Subject: [PATCH] Oops: interleave-step is bi*

---
 core/sequences/sequences.factor | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index 39e6d21c67..6eea872343 100755
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@@ -406,9 +406,6 @@ PRIVATE>
     [ 2drop f f ]
     if ; inline
 
-: interleave-step ( elt between quot -- )
-    [ dip ] dip call ; inline
-
 PRIVATE>
 
 : each ( seq quot -- )
@@ -513,7 +510,7 @@ PRIVATE>
 : interleave ( seq between quot -- )
     pick empty? [ 3drop ] [
         [ [ drop first-unsafe ] dip call ]
-        [ [ rest-slice ] 2dip [ interleave-step ] 2curry each ]
+        [ [ rest-slice ] 2dip [ bi* ] 2curry each ]
         3bi
     ] if ; inline