take-until-sequence* ( sequence-parser sequence -- sequence'/f )

Vocabulary

sequences.parser

Inputs

sequence-parser	a sequence-parser
sequence	a sequence

Outputs

sequence'/f

a sequence or f

Definition

USING: accessors kernel math sequences ;

IN: sequences.parser

:: take-until-sequence*
    ( sequence-parser sequence -- sequence'/f )
    sequence-parser sequence take-until-sequence :> out out
    [ sequence-parser [ sequence length + ] change-n drop ] when
    out ;