read-token-or-whitespace-nested ( n string slice -- n' string slice/f )

Vocabulary

modern

Inputs

n	an object
string	an object
slice	an object

Outputs

n'	an object
string	an object
slice/f	an object

Definition

USING: kernel math sequences ;

IN: modern

: read-token-or-whitespace-nested
    ( n string slice -- n' string slice/f )
    dup length 0 = [ [ 1 + ] 2dip drop lex-factor-nested ] when
    ;