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

combinators.extras: adding "forever".

db4
John Benediktsson 2013-09-17 19:57:10 -07:00
parent 04c36279bb
commit ee785be30c
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
extra/combinators/extras/extras.factor
View File

@ -8,6 +8,7 @@ IN: combinators.extras
: once ( quot -- ) call ; inline : once ( quot -- ) call ; inline
: twice ( quot -- ) dup [ call ] dip call ; inline : twice ( quot -- ) dup [ call ] dip call ; inline
: thrice ( quot -- ) dup dup [ call ] 2dip [ call ] dip call ; inline : thrice ( quot -- ) dup dup [ call ] 2dip [ call ] dip call ; inline
: forever ( quot -- ) [ t ] compose loop ; inline
MACRO: cond-case ( assoc -- ) MACRO: cond-case ( assoc -- )
[ [