diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-07-11 22:47:58 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-07-11 22:47:58 +0200 |
commit | eeccf193ff6313abedede827f3096b84428762eb (patch) | |
tree | 8d3852cd6d35f2ed12d6073ba83a3f320532112f /module/c/preprocessor2.scm | |
parent | Remove usage of zipper. (diff) | |
download | calp-eeccf193ff6313abedede827f3096b84428762eb.tar.gz calp-eeccf193ff6313abedede827f3096b84428762eb.tar.xz |
Remove linear update environment procedures.
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) |