From 80f19a0ab7777e654e361c9834f1ba1e4272f60e Mon Sep 17 00:00:00 2001 From: Calvin Rose Date: Mon, 27 Apr 2020 18:12:22 -0500 Subject: [PATCH] Fix behavior of -q flag. Don't surpress errors at the repl. --- src/boot/boot.janet | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/boot/boot.janet b/src/boot/boot.janet index ae130370..b0ca0866 100644 --- a/src/boot/boot.janet +++ b/src/boot/boot.janet @@ -2697,10 +2697,9 @@ (def getter (if *raw-stdin* getstdin getline)) (defn getchunk [buf p] (getter (getprompt p) buf env)) - (def onsig (if *quiet* (fn [x &] x) nil)) (setdyn :pretty-format (if *colorize* "%.20Q" "%.20q")) (setdyn :err-color (if *colorize* true)) - (repl getchunk onsig env))) + (repl getchunk nil env))) (put _env 'no-side-effects nil) (put _env 'is-safe-def nil)