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

Increment source line *after* inserting END-OF-STATEMENT

Browse source
This commit is contained in:
John Lorentzson 2025-07-13 20:53:05 +02:00
parent 1b2b65cd41
commit fea2a85b54
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -164,13 +164,13 @@ reading immediately. Should be a subset of *SPECIAL-TOKEN-CHARS*.")
(next-token))
;; Process and add a newline
((char= char #\Newline)
(setf in-comment-p nil
line (1+ line)
column 0)
(unless (zerop (length token-text-buffer))
(next-token))
(vector-push #\Newline token-text-buffer)
(next-token))
(next-token)
(setf in-comment-p nil
line (1+ line)
column 0))
;; Starting a comment
((and (member char *line-comment-chars* :test #'char=) (not in-comment-p))
(unless (zerop (length token-text-buffer))