check-space ( lexer -- )

Vocabulary

strings.parser.private

Inputs

lexer

an object

Outputs

None

Definition

USING: combinators kernel lexer sequences strings ;

IN: strings.parser.private

: check-space ( lexer -- )
    dup current-char forbid-tab {
        { 32 [ advance-char ] }
        { f [ drop ] }
        [ "[space]" swap 1string "'" 1surround unexpected ]
    } case ;