(parse-string) ( accum lexer -- )

Vocabulary

strings.parser.private

Inputs

accum	an object
lexer	an object

Outputs

None

Definition

USING: kernel kernel.private lexer sbufs sequences ;

IN: strings.parser.private

: (parse-string) ( accum lexer -- )
    { sbuf lexer } declare dup still-parsing? [
        dup find-next-token
        [ parse-found-token ]
        [ drop 2dup next-line% 10 pick push (parse-string) ] if*
    ] [ "'\"'" "[eof]" unexpected ] if ;