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

Fix incorrectly cons'd token source

Browse source
This commit is contained in:
John Lorentzson 2025-07-09 14:37:35 +02:00
parent dd3fe5369d
commit 2b0bcecc66
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

@ -146,7 +146,7 @@ reading immediately. Should be a subset of *SPECIAL-TOKEN-CHARS*.")
(in-comment-p nil) (in-comment-p nil)
(line 1) (line 1)
(column 0) (column 0)
(token-source (cons source 0))) (token-source (cons source (cons 1 0))))
(labels (labels
((next-token () ((next-token ()
(push (text-to-token (copy-seq token-text-buffer) token-source) tokens) (push (text-to-token (copy-seq token-text-buffer) token-source) tokens)