lex-factor ( n/f string/f -- n'/f string literal/f )

Vocabulary

modern

Inputs

n/f	an object
string/f	an object

Outputs

n'/f	an object
string	an object
literal/f	an object

Definition

USING: kernel make sequences ;

IN: modern

: lex-factor ( n/f string/f -- n'/f string literal/f )
    [
        [
            lex-factor-top f like [ , ] when*
            check-compound-loop
        ] loop
    ] { } make check-for-compound-syntax ?first f like ;