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

2023-08-27 13:09:22 -05:00 · 2023-08-27 13:09:22 -05:00 · 874fd2aba7
parent 33d1371186
commit 874fd2aba7
1 changed files with 6 additions and 1 deletions
--- a/src/boot/boot.janet
+++ b/src/boot/boot.janet
@ -2877,7 +2877,12 @@
    (if (= :dead fs)
      (when is-repl
        (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))
      (do
        (debug/stacktrace f x "")