sequences.extras: adding "until-empty".

2012-08-31 15:01:01 -07:00 · 2012-08-31 15:01:01 -07:00 · 4a9688079a
parent 5af4627e18
commit 4a9688079a
1 changed files with 3 additions and 0 deletions
--- 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