handle-ifdef ( preprocessor-state sequence-parser -- )

Vocabulary

c.preprocessor

Inputs

preprocessor-state	an object
sequence-parser	an object

Outputs

None

Definition

USING: accessors assocs c.lexer kernel math ;

IN: c.preprocessor

: handle-ifdef ( preprocessor-state sequence-parser -- )
    [ [ 1 + ] change-ifdef-nesting ] dip
    take-token over symbol-table>> key?
    [ drop ] [ t >>processing-disabled? drop ] if ;