diff options
Diffstat (limited to '')
-rw-r--r-- | module/c/preprocessor2.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/c/preprocessor2.scm b/module/c/preprocessor2.scm index 8bec237a..7e6de2e1 100644 --- a/module/c/preprocessor2.scm +++ b/module/c/preprocessor2.scm @@ -490,7 +490,7 @@ (tail (cdr tokens))) (-> environment bump-line - (add-identifier! + (add-identifier identifier (cond ((and (not (null? tail)) (equal? '(punctuator "(") (lexeme-body (car tail)))) @@ -576,7 +576,7 @@ (if (in-environment? env (identifier-token? (car body))) enter-inactive-if enter-active-if))) ((define) resolve-define) - ((undef) (lambda (env body) (remove-identifier! env (car body)))) + ((undef) (lambda (env body) (remove-identifier env (identifier-token? (car body))))) ((line) handle-line-directive) ((error) (lambda (_ body) (throw 'cpp-error body))) ((pragma) handle-pragma) |