steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Oops: interleave-step is bi*

db4
Slava Pestov 2009-06-16 14:05:39 -05:00
parent c5dfcf5755
commit ef6634337d
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
core/sequences/sequences.factor
View File

@ -406,9 +406,6 @@ PRIVATE>
[ 2drop f f ] [ 2drop f f ]
if ; inline if ; inline
: interleave-step ( elt between quot -- )
[ dip ] dip call ; inline
PRIVATE> PRIVATE>
: each ( seq quot -- ) : each ( seq quot -- )
@ -513,7 +510,7 @@ PRIVATE>
: interleave ( seq between quot -- ) : interleave ( seq between quot -- )
pick empty? [ 3drop ] [ pick empty? [ 3drop ] [
[ [ drop first-unsafe ] dip call ] [ [ drop first-unsafe ] dip call ]
[ [ rest-slice ] 2dip [ interleave-step ] 2curry each ] [ [ rest-slice ] 2dip [ bi* ] 2curry each ]
3bi 3bi
] if ; inline ] if ; inline