Fix some indentation problems.
@@ -1637,7 +1637,8 @@ value, one key will be ignored."
(do
(def [fullpath mod-kind] (module/find path))
(unless fullpath (error mod-kind))
- (def env (case mod-kind
+ (def env
+ (case mod-kind
:source (do
# Normal janet module
(def f (file/open fullpath))
@@ -1646,11 +1647,11 @@ value, one key will be ignored."
(defn chunks [buf _] (file/read f 2048 buf))
(defn bp [&opt x y]
(def ret (bad-parse x y))
- (if exit-on-error (os/exit))
+ (if exit-on-error (os/exit 1))
ret)
(defn bc [&opt x y z]
(def ret (bad-compile x y z))
- (if exit-on-error (os/exit))
+ (if exit-on-error (os/exit 1))
ret)
(run-context {:env newenv
:chunks chunks
