From 7113cc77f9b5dc8781a53dc09d3dcad9d5b5bfc4 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Tue, 11 Sep 2012 14:29:40 -0700
Subject: [PATCH] sequences.extras: Add loop>sequence, loop>array

---
 extra/sequences/extras/extras.factor | 6 ++++++
 1 file changed, 6 insertions(+)

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