combinators.extras: adding "forever".

2013-09-17 19:57:10 -07:00 · 2013-09-17 19:57:10 -07:00 · ee785be30c
parent 04c36279bb
commit ee785be30c
1 changed files with 1 additions and 0 deletions
--- a/extra/combinators/extras/extras.factor
+++ b/extra/combinators/extras/extras.factor
@ -8,6 +8,7 @@ IN: combinators.extras
 : once ( quot -- ) call ; inline
 : twice ( quot -- ) dup [ call ] dip call ; inline
 : thrice ( quot -- ) dup dup [ call ] 2dip [ call ] dip call ; inline
+: forever ( quot -- ) [ t ] compose loop ; inline

 MACRO: cond-case ( assoc -- )
    [