until-empty ( seq quot -- )

Vocabulary

sequences.extras

Inputs

seq	a sequence
quot	a quotation

Outputs

None

Definition

USING: kernel sequences ;

IN: sequences.extras

: until-empty ( seq quot -- ) [ dup empty? ] swap until drop
    ; inline