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

fix typo

Browse Source
This commit is contained in:
Scott Richmond 2024-06-10 18:25:12 -04:00
parent c1359e5c70
commit 2e7db1b969
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/errors.janet
View File

@ -7,14 +7,14 @@
(defn parse-error [e] (defn parse-error [e]
(def msg (e :msg)) (def msg (e :msg))
(def {:line line-num :input input :soure source} (e :token)) (def {:line line-num :input input :source source} (e :token))
(print line-num input source)
(def source-line (get-line source line-num)) (def source-line (get-line source line-num))
(print "Parsing error: " msg) (print "Parsing error: " msg)
(print "On line " line-num " in " input) (print "On line " line-num " in " input)
(print source-line) (print source-line)
e) e)
(defn validation-error [e] (defn validation-error [e]
(def msg (e :msg)) (def msg (e :msg))
(def {:line line-num :input input :source source} (get-in e [:node :token])) (def {:line line-num :input input :source source} (get-in e [:node :token]))