mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2024-06-16 18:29:56 +00:00
Code Issues 1 Releases Wiki Activity

don't crash repl if someone sets a bad *pretty-format*

Browse Source
This commit is contained in:
Calvin Rose 2023-08-27 13:09:22 -05:00
parent 33d1371186
commit 874fd2aba7
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/boot/boot.janet
View File

@ -2877,7 +2877,12 @@
(if (= :dead fs) (if (= :dead fs)
(when is-repl (when is-repl
(put env '_ @{:value x}) (put env '_ @{:value x})
(printf (get env *pretty-format* "%q") x) (def pf (get env *pretty-format* "%q"))
(try
(printf pf x)
([e]
(eprintf "bad pretty format %v: %v" pf e)
(eflush)))
(flush)) (flush))
(do (do
(debug/stacktrace f x "") (debug/stacktrace f x "")