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

sequences: make nth3-unsafe simpler.

db4
John Benediktsson 2012-09-05 10:52:44 -07:00
parent 00a9fcbc85
commit e36c76cadf
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

@ -865,10 +865,7 @@ PRIVATE>
[ nth-unsafe ] [ [ 1 + ] dip nth-unsafe ] 2bi ; inline [ nth-unsafe ] [ [ 1 + ] dip nth-unsafe ] 2bi ; inline
: nth3-unsafe ( n seq -- a b c ) : nth3-unsafe ( n seq -- a b c )
[ nth-unsafe ] [ nth2-unsafe ] [ [ 2 + ] dip nth-unsafe ] 2bi ; inline
[ [ 1 + ] dip nth-unsafe ]
[ [ 2 + ] dip nth-unsafe ]
2tri ; inline
: (binary-reduce) ( ... seq start quot: ( ... elt1 elt2 -- ... newelt ) from to -- ... value ) : (binary-reduce) ( ... seq start quot: ( ... elt1 elt2 -- ... newelt ) from to -- ... value )
#! We can't use case here since combinators depends on #! We can't use case here since combinators depends on