skip-until ( ... sequence-parser quot: ( ... obj -- ... ? ) -- ... )

Vocabulary

sequences.parser

Inputs

sequence-parser	a sequence-parser
quot	a quotation

Outputs

None

Definition

USING: kernel ;

IN: sequences.parser

:: skip-until
    ( ... sequence-parser quot: ( ... obj -- ... ? ) -- ... )
    sequence-parser current [
        sequence-parser quot call
        [ sequence-parser advance quot skip-until ] unless
    ] when ; inline recursive