better name for package names
This commit is contained in:
parent
f1a1e9ec62
commit
064b5df2dd
|
@ -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)))
|
||||||
|
|
Loading…
Reference in New Issue
Block a user