twc/ludus
4
0
Fork 0
Code Issues 32 Pull Requests Packages Projects 8 Releases Wiki Activity

ensure :errors is always a tuple or array, never nil; allows (empty? (scanner :errors)) to work as a test for errors

Browse Source
This commit is contained in:
Scott Richmond 2024-05-18 17:00:18 -04:00
parent b0c912b16c
commit b5d23b26ec
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
janet/scanner.janet
View File

@ -327,7 +327,7 @@
(if (at-end? scanner) (if (at-end? scanner)
(let [scanner (add-token (add-token scanner :break) :eof)] (let [scanner (add-token (add-token scanner :break) :eof)]
{:tokens (get scanner :tokens) {:tokens (get scanner :tokens)
:errors (get scanner :errors)}) :errors (get scanner :errors [])})
(recur (-> scanner (scan-token) (next-token))))) (recur (-> scanner (scan-token) (next-token)))))
(recur (new-scanner source input))) (recur (new-scanner source input)))