This commit is contained in:
Scott Richmond 2024-06-10 18:25:12 -04:00
parent c1359e5c70
commit 2e7db1b969

View File

@ -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]))