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 )
    [ ] curry [ dip [ sequence= ] curry any? not ] curry
    [ [ dup section-close? [ drop f ] ] ] dip [ if ] curry
    compose [ [ dup ] ] dip [ [ drop t ] if ] curry compose
    [ [ lex-factor-nested dup f like [ , ] when* ] ] dip
    [ [ f ] if* ] curry compose [ loop ] curry { } make ;