sequences.extras: Add loop>sequence, loop>array

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index 495b38f9bd74b33400be816518d6eb9789c6af5c..8c8571466330039d80e1355cd5eb87167cea9e86 100644 (file)
--- 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