diff options
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) |