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

better name for package names

Browse Source
This commit is contained in:
Scott Richmond 2024-05-10 15:02:55 -04:00
parent f1a1e9ec62
commit 064b5df2dd
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

@ -222,7 +222,7 @@
(defn recur [scanner pkg] (defn recur [scanner pkg]
(let [curr (current-char scanner)] (let [curr (current-char scanner)]
(cond (cond
(terminates? curr) (add-token scanner :pkg :none) (terminates? curr) (add-token scanner :pkg-name :none)
(word-char? curr) (recur (advance scanner) (buffer/push pkg curr)) (word-char? curr) (recur (advance scanner) (buffer/push pkg curr))
:else (add-error scanner (string "unexpected " curr " after pkg name " pkg))))) :else (add-error scanner (string "unexpected " curr " after pkg name " pkg)))))
(recur scanner (buffer char))) (recur scanner (buffer char)))