mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-06-13 12:04:12 +00:00
Code Issues 1 Releases Wiki Activity

Fix behavior of -q flag.

Browse Source 
Don't surpress errors at the repl.
This commit is contained in:
Calvin Rose 2020-04-27 18:12:22 -05:00
parent 41894eb285
commit 80f19a0ab7
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/boot/boot.janet
View File

@ -2697,10 +2697,9 @@
(def getter (if *raw-stdin* getstdin getline)) (def getter (if *raw-stdin* getstdin getline))
(defn getchunk [buf p] (defn getchunk [buf p]
(getter (getprompt p) buf env)) (getter (getprompt p) buf env))
(def onsig (if *quiet* (fn [x &] x) nil))
(setdyn :pretty-format (if *colorize* "%.20Q" "%.20q")) (setdyn :pretty-format (if *colorize* "%.20Q" "%.20q"))
(setdyn :err-color (if *colorize* true)) (setdyn :err-color (if *colorize* true))
(repl getchunk onsig env))) (repl getchunk nil env)))
(put _env 'no-side-effects nil) (put _env 'no-side-effects nil)
(put _env 'is-safe-def nil) (put _env 'is-safe-def nil)