From 0102a72538035667552648a40c6b9aa52ef5201f Mon Sep 17 00:00:00 2001
From: Calvin Rose <calsrose@gmail.com>
Date: Wed, 19 Jun 2019 09:01:21 -0400
Subject: [PATCH] Update module/paths for saner defaults.

Relative imports will only check the paths
directly concerning relative imports.
---
 src/boot/boot.janet | 18 ++++++++++--------
 1 file changed, 10 insertions(+), 8 deletions(-)

diff --git a/src/boot/boot.janet b/src/boot/boot.janet
index 43f83189..64f3fa0c 100644
--- a/src/boot/boot.janet
+++ b/src/boot/boot.janet
@@ -1580,6 +1580,7 @@
 
 (def- nati (if (= :windows (os/which)) ".dll" ".so"))
 (defn- check-. [x] (string/has-prefix? "." x))
+(defn- not-check-. [x] (not (string/has-prefix? "." x)))
 
 (def module/paths
   "The list of paths to look for modules, templated for module/expand-path.
@@ -1597,16 +1598,16 @@
     [(string ":cur:/:all:" nati) :native check-.]
 
     # As a path from (os/cwd)
-    [":all:.janet" :source]
-    [":all:/init.janet" :source]
-    [":all:.jimage" :image]
-    [(string ":all:" nati) :native]
+    [":all:.janet" :source not-check-.]
+    [":all:/init.janet" :source not-check-.]
+    [":all:.jimage" :image not-check-.]
+    [(string ":all:" nati) :native not-check-.]
 
     # System paths
-    [":sys:/:all:.janet" :source]
-    [":sys:/:all:/init.janet" :source]
-    [":sys:/:all:.jimage" :image]
-    [(string ":sys:/:all:" nati) :native]])
+    [":sys:/:all:.janet" :source not-check-.]
+    [":sys:/:all:/init.janet" :source not-check-.]
+    [":sys:/:all:.jimage" :image not-check-.]
+    [(string ":sys:/:all:" nati) :native not-check-.]])
 
 (setdyn :syspath (process/opts "JANET_PATH"))
 (setdyn :headerpath (process/opts "JANET_HEADERPATH"))
@@ -1663,6 +1664,7 @@
 (put _env 'nati nil)
 (put _env 'mod-filter nil)
 (put _env 'check-. nil)
+(put _env 'not-check-. nil)
 
 (def module/cache
   "Table mapping loaded module identifiers to their environments."