sequences: faster interleave.

2014-03-12 12:51:32 -07:00 · 2014-03-12 12:51:32 -07:00 · 9c1dd0ad58
parent a6989e2cc2
commit 9c1dd0ad58
1 changed files with 1 additions and 1 deletions
--- 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