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

2012-09-11 14:29:40 -07:00 · 2012-09-11 14:29:40 -07:00 · 7113cc77f9
parent 08499b6e5a
commit 7113cc77f9
1 changed files with 6 additions and 0 deletions
--- 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