From eeccf193ff6313abedede827f3096b84428762eb Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 11 Jul 2022 22:47:58 +0200 Subject: Remove linear update environment procedures. --- module/c/preprocessor2.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'module/c/preprocessor2.scm') 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) -- cgit v1.2.3