diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-07-11 18:34:48 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-07-11 18:34:48 +0200 |
commit | d1b87ade120f8d01d86ed6e5c9661f36f78751b7 (patch) | |
tree | a84e69b087a7d823270aeba02f5cae74041b2ddf /module/c/cpp-types.scm | |
parent | Rewrite handel-preprocessing-tokens. (diff) | |
download | calp-d1b87ade120f8d01d86ed6e5c9661f36f78751b7.tar.gz calp-d1b87ade120f8d01d86ed6e5c9661f36f78751b7.tar.xz |
Fix most of expand##.
Diffstat (limited to 'module/c/cpp-types.scm')
-rw-r--r-- | module/c/cpp-types.scm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/module/c/cpp-types.scm b/module/c/cpp-types.scm index e21a8f0c..1a7387f5 100644 --- a/module/c/cpp-types.scm +++ b/module/c/cpp-types.scm @@ -6,6 +6,7 @@ comment-token? preprocessing-token? newline-token? + placemaker-token? identifier-token? punctuator-token? number-token? @@ -21,6 +22,9 @@ (define (preprocessing-token? x) (eq? 'preprocessing-token (lexeme-type x))) +(define (placemaker-token? x) + (eq? 'placemaker (lexeme-type x))) + (define (newline-token? x) (and (whitespace-token? x) (string=? "\n" (lexeme-body x)))) |