find-next-token ( lexer -- i elt )

Vocabulary

strings.parser.private

Inputs

lexer

an object

Outputs

i	an object
elt	an object

Definition

USING: accessors kernel kernel.private lexer sequences ;

IN: strings.parser.private

: find-next-token ( lexer -- i elt )
    { lexer } declare [ column>> ] [ line-text>> ] bi
    [ "\"\\" member-eq? ] find-from ;