diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor index 495b38f9bd..8c85714663 100644 --- a/extra/sequences/extras/extras.factor +++ b/extra/sequences/extras/extras.factor @@ -308,3 +308,9 @@ INSTANCE: odds immutable-sequence : fourth? ( seq quot -- ? ) [ fourth ] dip call ; inline : last? ( seq quot -- ? ) [ last ] dip call ; inline : nth? ( n seq quot -- ? ) [ nth ] dip call ; inline + +: loop>sequence ( quot exemplar -- seq ) + [ '[ [ @ [ [ , ] when* ] keep ] loop ] ] dip make ; inline + +: loop>array ( quot -- seq ) + { } loop>sequence ; inline