sequences.extras: adding "until-empty".

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index ccbb706d61291156f968524e605746bb8d22ca59..b7a897c3e856755ba014f4e76cc3c2eb54c3faa9 100644 (file)
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -262,3 +262,6 @@ M: odds length length>> ; inline
 M: odds nth-unsafe [ 2 * 1 + ] [ seq>> nth-unsafe ] bi* ; inline
 
 INSTANCE: odds immutable-sequence
+
+: until-empty ( seq quot -- )
+    [ dup empty? ] swap until drop ; inline