diff options
Diffstat (limited to 'module/c/preprocessor2.scm')
| -rw-r--r-- | module/c/preprocessor2.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/module/c/preprocessor2.scm b/module/c/preprocessor2.scm index f18ca748..1c73187d 100644 --- a/module/c/preprocessor2.scm +++ b/module/c/preprocessor2.scm @@ -459,7 +459,7 @@ (typecheck environment cpp-environment?) ;; (typecheck tokens (list-of lexeme?)) - (-> (extend-environment environment defined-macro) + (-> (extend-environment environment (list defined-macro)) ;; no newlines in #if line ((unval resolve-token-stream 1) tokens) resolve-constant-expression @@ -630,6 +630,7 @@ ((in-conditional/inactive? environment) (case (string->symbol (identifier-token? (car line-tokens))) + ((ifdef if) (loop (enter-inactive-if environment) remaining-tokens)) ((else) (loop (flip-flop-if environment) remaining-tokens)) ((endif) (loop (leave-if environment) remaining-tokens)) ((elif) (loop (resolve-for-if |