sequences: faster interleave.

diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index 2662c6c7209ace35055b276c15719c5727906738..3c5c8f992b632b25f535cb79bb63df8c9cde8097 100644 (file)
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@@ -574,7 +574,7 @@ PRIVATE>
 : interleave ( ... seq between quot: ( ... elt -- ... ) -- ... )
     pick empty? [ 3drop ] [
         [ [ drop first-unsafe ] dip call ]
-        [ [ rest-slice ] 2dip [ bi* ] 2curry each ]
+        [ [ bi* ] 2curry [ 1 ] 2dip (each) (each-integer) ]
         3bi
     ] if ; inline