Oops: interleave-step is bi*

diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index 39e6d21c671a96f07ba858430c12450cf42ef87d..6eea87234399ea509ab86847b8cd4498ea128360 100755 (executable)
--- 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