diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-07-12 02:37:49 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-07-12 02:37:49 +0200 |
| commit | ccc7848110b06479cf8a38ee843d4d3adc01a27c (patch) | |
| tree | 2db89619c228b5e17f2df5b76b2eaf90060b0928 /module/c/cpp-types.scm | |
| parent | Remove linear update environment procedures. (diff) | |
| download | calp-ccc7848110b06479cf8a38ee843d4d3adc01a27c.tar.gz calp-ccc7848110b06479cf8a38ee843d4d3adc01a27c.tar.xz | |
work
Diffstat (limited to 'module/c/cpp-types.scm')
| -rw-r--r-- | module/c/cpp-types.scm | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/module/c/cpp-types.scm b/module/c/cpp-types.scm index e5e73d32..555120d6 100644 --- a/module/c/cpp-types.scm +++ b/module/c/cpp-types.scm @@ -11,19 +11,25 @@ punctuator-token? number-token? string-token? + h-string-token? + q-string-token? )) (define (whitespace-token? x) - (eq? 'whitespace (lexeme-type x))) + (and (lexeme? x) + (eq? 'whitespace (lexeme-type x)))) (define (comment-token? x) - (eq? 'comment (lexeme-type x))) + (and (lexeme? x) + (eq? 'comment (lexeme-type x)))) (define (preprocessing-token? x) - (eq? 'preprocessing-token (lexeme-type x))) + (and (lexeme? x) + (eq? 'preprocessing-token (lexeme-type x)))) (define (placemaker-token? x) - (eq? 'placemaker (lexeme-type x))) + (and (lexeme? x) + (eq? 'placemaker (lexeme-type x)))) (define (newline-token? x) (and (whitespace-token? x) |