brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Always handle lines starting with # as comment.

Browse source
This commit is contained in:
Dominik Pantůček 2024-01-16 22:14:41 +01:00
parent 707bb1d61e
commit 6282a934c6
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/util-parser.scm
View file

@ -63,7 +63,8 @@ Returns a string representing the preprocessed line.")
(ploop (add1 pidx))))) (ploop (add1 pidx)))))
(hpos (let hloop ((hidx ppos)) (hpos (let hloop ((hidx ppos))
(if (or (= hidx llen) (if (or (= hidx llen)
(and strip-comments? (and (or strip-comments?
(= hidx 0))
(eq? (string-ref line hidx) #\#))) (eq? (string-ref line hidx) #\#)))
hidx hidx
(hloop (add1 hidx))))) (hloop (add1 hidx)))))