Make jpm configurable for environments like MinGW.

2025-12-04 15:48:09 +00:00 · 2021-05-26 10:07:11 -05:00
parent 2db7945d6f
commit 7c757ef3bf
6 changed files with 84 additions and 14 deletions
--- a/src/boot/boot.janet
+++ b/src/boot/boot.janet
@@ -3315,7 +3315,11 @@
  [thunk source env where]
  (when (tuple? source)
    (def head (source 0))
-    (def safe-check (safe-forms head))
+    (def safe-check
+      (or
+        (safe-forms head)
+        (if (symbol? head)
+          (if (string/has-prefix? "define-" head) is-safe-def))))
    (cond
      # Sometimes safe form
      (function? safe-check)