lex-until ( n string tag-sequence -- n' string payload )

Vocabulary

modern

Inputs

n	an object
string	an object
tag-sequence	an object

Outputs

n'	an object
string	an object
payload	an object

Definition

USING: kernel make sequences ;

IN: modern

: lex-until ( n string tag-sequence -- n' string payload )
    3dup [
        [ ] curry [ dip [ sequence= ] curry any? not ] curry
        [ [ dup ] ] dip [ [ drop t ] if ] curry compose
    ] 3dip [ lex-expected-but-got-eof ] 3curry
    [ [ [ lex-factor-top dup f like [ , ] when* ] ] dip ] dip
    [ if* ] 2curry compose [ loop ] curry { } make ;