From ccc7848110b06479cf8a38ee843d4d3adc01a27c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Tue, 12 Jul 2022 02:37:49 +0200 Subject: work --- module/c/cpp-types.scm | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) (limited to 'module/c/cpp-types.scm') 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) -- cgit v1.2.3