From b2c966f8b9ee1eba4d3f0c39cd4860ed84e03cc8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Peter=20Str=C3=B6mberg?= <pez@pezius.com>
Date: Tue, 23 Apr 2024 09:35:08 +0200
Subject: [PATCH] Experiment, treat ignores as reader tags more

---
 src/cursor-doc/token-cursor.ts | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/cursor-doc/token-cursor.ts b/src/cursor-doc/token-cursor.ts
index 657697661..741d12c23 100644
--- a/src/cursor-doc/token-cursor.ts
+++ b/src/cursor-doc/token-cursor.ts
@@ -405,7 +405,7 @@ export class LispTokenCursor extends TokenCursor {
     let hasReader = false;
     while (true) {
       cursor.backwardWhitespace();
-      if (cursor.getPrevToken().type === 'reader') {
+      if (['reader', 'ignore'].includes(cursor.getPrevToken().type)) {
         cursor.previous();
         this.set(cursor);
         hasReader = true;
@@ -425,7 +425,7 @@ export class LispTokenCursor extends TokenCursor {
     let hasReader = false;
     while (true) {
       cursor.forwardWhitespace();
-      if (cursor.getToken().type === 'reader') {
+      if (['reader', 'ignore'].includes(cursor.getToken().type)) {
         cursor.next();
         this.set(cursor);
         hasReader = true;