combinators.extras: adding "forever".

diff --git a/extra/combinators/extras/extras.factor b/extra/combinators/extras/extras.factor
index a503891ed13259cad76c690b317f23b1b0622862..6222b8920eeb413eac140c129bcfbf3a2545479c 100644 (file)
--- 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 -- )
     [