expect ( token -- )

Vocabulary

lexer

Inputs

token

an object

Outputs

None

Definition

USING: kernel ;

IN: lexer

: expect ( token -- )
    scan-token 2dup = [ 2drop ] [ unexpected ] if ;