diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-07-23 21:42:19 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-08-18 16:38:37 +0200 |
commit | 39a878d1130bd33d7d1b1380617747187e01fb73 (patch) | |
tree | 5ea885ebe8eac148c6967fa7a24f6821ca24a8de /module/c/cpp-types.scm | |
parent | Rewrote H-string tests to be what they should. (diff) | |
download | calp-39a878d1130bd33d7d1b1380617747187e01fb73.tar.gz calp-39a878d1130bd33d7d1b1380617747187e01fb73.tar.xz |
Only parse h-strings where applicable.
Diffstat (limited to 'module/c/cpp-types.scm')
-rw-r--r-- | module/c/cpp-types.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/module/c/cpp-types.scm b/module/c/cpp-types.scm index bf51d009..a6299996 100644 --- a/module/c/cpp-types.scm +++ b/module/c/cpp-types.scm @@ -80,7 +80,7 @@ (define (h-string-token? token) (and (preprocessing-token? token) (match (lexeme-body token) - (`(header-name (h-string ,x)) x) + (`(h-string ,x) x) (_ #f)))) ;; NOTE q-string tokens are never produced by the lexer, |