lex-colon-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-colon-until
    ( n string tag-sequence -- n' string payload )
    '[
        [
            lex-factor-nested dup f like [ , ] when* [
                dup [
                    dup section-close?
                    [ drop f ] [
                        ~quotation~ dip '[ _ sequence= ] any?
                        not
                    ] if
                ] [ drop t ] if
            ] [ f ] if*
        ] loop
    ] { } make ;