From 6282a934c676102db548eb45df5038db03fb9471 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Tue, 16 Jan 2024 22:14:41 +0100
Subject: [PATCH] Always handle lines starting with # as comment.

---
 src/util-parser.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/util-parser.scm b/src/util-parser.scm
index 40f49ac..24e05ed 100644
--- a/src/util-parser.scm
+++ b/src/util-parser.scm
@@ -63,7 +63,8 @@ Returns a string representing the preprocessed line.")
 		      (ploop (add1 pidx)))))
 	  (hpos (let hloop ((hidx ppos))
 		  (if (or (= hidx llen)
-			  (and strip-comments?
+			  (and (or strip-comments?
+				   (= hidx 0))
 			       (eq? (string-ref line hidx) #\#)))
 		      hidx
 		      (hloop (add1 hidx)))))