From 7b78cf68200118fac395592da3d78b22b4be0cd7 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Wed, 13 Jul 2022 11:35:39 +0200
Subject: Add support for "other" in preprocessing-tokens.

---
 module/c/cpp-types.scm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'module/c/cpp-types.scm')

diff --git a/module/c/cpp-types.scm b/module/c/cpp-types.scm
index 1df70594..82ebb922 100644
--- a/module/c/cpp-types.scm
+++ b/module/c/cpp-types.scm
@@ -5,8 +5,9 @@
   :export (whitespace-token?
            comment-token?
            preprocessing-token?
-           newline-token?
+           other-token?
            placemaker-token?
+           newline-token?
            identifier-token?
            punctuator-token?
            number-token?
@@ -27,6 +28,10 @@
   (and (lexeme? x)
        (eq? 'preprocessing-token (lexeme-type x))))
 
+(define (other-token? x)
+  (and (lexeme? x)
+       (eq? 'other (lexeme-type x))))
+
 (define (placemaker-token? x)
   (and (lexeme? x)
        (eq? 'placemaker (lexeme-type x))))
-- 
cgit v1.2.3