From 4a9688079a6cba3fd52f7445e11a3f18a62520b3 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Fri, 31 Aug 2012 15:01:01 -0700 Subject: [PATCH] sequences.extras: adding "until-empty". --- extra/sequences/extras/extras.factor | 3 +++ 1 file changed, 3 insertions(+) diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor index ccbb706d61..b7a897c3e8 100644 --- 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