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 '[
        [
            lex-factor-top dup f like [ , ] when* [
                dup
                [ [ _ ] dip '[ _ sequence= ] any? not ]
                [ drop t ] if
            ] [ _ _ _ lex-expected-but-got-eof ] if*
        ] loop
    ] { } make ;