Stacken/c64-livecoding
6
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages Wiki Activity Actions

Fix column off-by-one error in source tracking

Browse source
This commit is contained in:
John Lorentzson 2025-07-09 14:37:12 +02:00
parent c3dc447fe4
commit dd3fe5369d
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
wip-duuqnd/user-side-compiler/tokenizer.lisp
View file

@ -155,7 +155,6 @@ reading immediately. Should be a subset of *SPECIAL-TOKEN-CHARS*.")
token-source (cons source (cons line column))))) token-source (cons source (cons line column)))))
(loop :for char := (read-char stream) (loop :for char := (read-char stream)
:for next := (peek-char nil stream nil :eof) :for next := (peek-char nil stream nil :eof)
:do (incf column)
:do :do
(cond (cond
;; Break for next token at whitespace ;; Break for next token at whitespace
@ -195,6 +194,7 @@ reading immediately. Should be a subset of *SPECIAL-TOKEN-CHARS*.")
(next-token)) (next-token))
((eql :eof next) ((eql :eof next)
(next-token))))) (next-token)))))
:do (incf column)
:until (eql :eof next))) :until (eql :eof next)))
(nreverse tokens))) (nreverse tokens)))