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

Vocabulary

c.preprocessor

Inputs

preprocessor-state	an object
sequence-parser	an object

Outputs

None

Definition

USING: accessors kernel math sequences sequences.parser ;

IN: c.preprocessor

: handle-if ( preprocessor-state sequence-parser -- )
    [ [ 1 + ] change-ifdef-nesting ] dip
    skip-whitespace/comments take-rest swap ifs>> push ;