forbid-tab ( c -- c )

Vocabulary

lexer

Inputs

c

an object

Outputs

c

an object

Definition

USING: kernel ;

IN: lexer

: forbid-tab ( c -- c )
    [ 9 eq? [ "[space]" "[tab]" unexpected ] when ] keep ;
    inline