take-while ( ... sequence-parser quot: ( ... obj -- ... ? ) -- ... sequence/f )

Vocabulary

sequences.parser

Inputs

sequence-parser	a sequence-parser
quot	a quotation

Outputs

sequence/f

a sequence or f

Definition

USING: kernel ;

IN: sequences.parser

: take-while
    ( ... sequence-parser quot: ( ... obj -- ... ? ) -- ... sequence/f )
    [ not ] compose take-until ; inline