From bf9a60f70d01274f6c4b801496099f6ed0a8c314 Mon Sep 17 00:00:00 2001
From: sogaiu <983021772@users.noreply.github.com>
Date: Wed, 13 Apr 2022 19:39:41 +0900
Subject: [PATCH] Use defdyn for syspath in boot.janet

---
 src/boot/boot.janet | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/src/boot/boot.janet b/src/boot/boot.janet
index ff08d833..80401309 100644
--- a/src/boot/boot.janet
+++ b/src/boot/boot.janet
@@ -2208,10 +2208,13 @@
 ###
 ###
 
+(defdyn *syspath*
+  "Path of directory to load system modules from.")
+
 # Initialize syspath
 (each [k v] (partition 2 (tuple/slice boot/args 2))
   (case k
-    "JANET_PATH" (setdyn :syspath v)))
+    "JANET_PATH" (setdyn *syspath* v)))
 
 (defn make-env
   `Create a new environment table. The new environment
@@ -3645,7 +3648,7 @@
   (var error-level nil)
   (var expect-image false)
 
-  (if-let [jp (getenv-alias "JANET_PATH")] (setdyn :syspath jp))
+  (if-let [jp (getenv-alias "JANET_PATH")] (setdyn *syspath* jp))
   (if-let [jprofile (getenv-alias "JANET_PROFILE")] (setdyn *profilepath* jprofile))
 
   (defn- get-lint-level
@@ -3690,7 +3693,7 @@
      "i" (fn [&] (set expect-image true) 1)
      "k" (fn [&] (set compile-only true) (set exit-on-error false) 1)
      "n" (fn [&] (set colorize false) 1)
-     "m" (fn [i &] (setdyn :syspath (in args (+ i 1))) 2)
+     "m" (fn [i &] (setdyn *syspath* (in args (+ i 1))) 2)
      "c" (fn c-switch [i &]
            (def path (in args (+ i 1)))
            (def e (dofile path))