fix typo
This commit is contained in:
parent
c1359e5c70
commit
2e7db1b969
|
@ -7,14 +7,14 @@
|
|||
|
||||
(defn parse-error [e]
|
||||
(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))
|
||||
(print "Parsing error: " msg)
|
||||
(print "On line " line-num " in " input)
|
||||
(print source-line)
|
||||
e)
|
||||
|
||||
|
||||
(defn validation-error [e]
|
||||
(def msg (e :msg))
|
||||
(def {:line line-num :input input :source source} (get-in e [:node :token]))
|
||||
|
|
Loading…
Reference in New Issue
Block a user