combinators.extras: Add loop1 which outputs an object

diff --git a/extra/combinators/extras/extras.factor b/extra/combinators/extras/extras.factor
index aaf49f1f2293938e0f10008848d57a1680407a06..3fd6294b2df634e0e771b3ff42d82235707c0b2c 100644 (file)
--- a/extra/combinators/extras/extras.factor
+++ b/extra/combinators/extras/extras.factor
@@ -109,3 +109,7 @@ MACRO: chain ( quots -- quot )
 
 : with-output-variable ( value variable quot -- value )
     over [ get ] curry compose with-variable ; inline
+
+: loop1 ( ..a quot: ( ..a -- ..a obj ? ) -- ..a obj )
+    [ call ] keep '[ drop _ loop1 ] when ; inline recursive
+