parse-found-token ( accum lexer i elt -- )

Vocabulary

strings.parser.private

Inputs

accum	an object
lexer	an object
i	an object
elt	an object

Outputs

None

Definition

USING: kernel kernel.private lexer math sbufs sequences ;

IN: strings.parser.private

: parse-found-token ( accum lexer i elt -- )
    { sbuf lexer fixnum fixnum } declare
    [ over lexer-subseq pick push-all ] dip 92 eq? [
        dup dup [ next-char ] bi@
        [ [ pick push ] bi@ ] [ drop 2dup next-line% ] if*
        (parse-string)
    ] [ dup advance-char check-space drop ] if ;