From c4a95e9a1ea15a8c14669ebc542939105a7a3c2f Mon Sep 17 00:00:00 2001 From: Andrew Owen Date: Fri, 15 Jan 2021 01:53:14 -0700 Subject: [PATCH] Update error handling, kill a bikeshed argument --- src/boot/boot.janet | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/boot/boot.janet b/src/boot/boot.janet index 645efa7f..f24b700d 100644 --- a/src/boot/boot.janet +++ b/src/boot/boot.janet @@ -3283,9 +3283,9 @@ (var *debug* false) (var *compile-only* false) - (when-let [jp (getenv-alias "JANET_PATH")] (setdyn :syspath jp)) - (when-let [jp (getenv-alias "JANET_HEADERPATH")] (setdyn :headerpath jp)) - (when-let [jprofile (getenv-alias "JANET_PROFILE")] (setdyn :profilepath jprofile)) + (if-let [jp (getenv-alias "JANET_PATH")] (setdyn :syspath jp)) + (if-let [jp (getenv-alias "JANET_HEADERPATH")] (setdyn :headerpath jp)) + (if-let [jprofile (getenv-alias "JANET_PROFILE")] (setdyn :profilepath jprofile)) # Flag handlers (def handlers @@ -3378,7 +3378,7 @@ (file/read stdin :line buf)) (def env (make-env)) (when-let [profile.janet (dyn :profilepath)] - (def new-env (dofile profile.janet :exit *exit-on-error* :env env)) + (def new-env (dofile profile.janet :exit true :env env)) (merge-module env new-env "" false)) (if *debug* (put env :debug true)) (def getter (if *raw-stdin* getstdin getline))