mirrors
/
janet
mirror of https://github.com/janet-lang/janet
1
0
Fork 0
Code Issues 1 Releases Wiki Activity

Run parser error handler in the correct env in run-context.

This commit is contained in:
Calvin Rose 2020-04-27 20:29:16 -05:00
parent c98e1f3cae
commit 8bbb7907d6
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/boot/boot.janet
View File

@ -2005,6 +2005,13 @@
(def res (resume f resumeval))
(when good (when going (set resumeval (onstatus f res))))))
(defn parse-err
"Handle parser error in the correct environment"
[p where]
(def f (coro (on-parse-error p where)))
(fiber/setenv f env)
(resume f))
# Loop
(def buf @"")
(while going
@ -2022,12 +2029,12 @@
(while (parser/has-more p)
(eval1 (parser/produce p)))
(when (= (parser/status p) :error)
(on-parse-error p where))))
(parse-err p where))))
# Check final parser state
(while (parser/has-more p)
(eval1 (parser/produce p)))
(when (= (parser/status p) :error)
(on-parse-error p where))
(parse-err p where))
(in env :exit-value env))