next-char ( lexer -- ch/f )

Vocabulary

strings.parser.private

Inputs

lexer

an object

Outputs

ch/f

an object

Definition

USING: kernel kernel.private lexer ;

IN: strings.parser.private

: next-char ( lexer -- ch/f )
    { lexer } declare dup still-parsing-line?
    [ [ current-char ] [ advance-char ] bi ] [ drop f ] if ;