mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-02-05 03:30:02 +00:00
Code Issues 1 Releases Wiki Activity

Change default import prefix.

Browse Source 
Changed from `(string path "/")` to
`(string (last (string/split "/" path)) "/)`.
This commit is contained in:
Calvin Rose 2020-01-24 16:54:06 -06:00
parent 163e2a5b22
commit 689f2dcbb4
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/boot/boot.janet
View File

@ -2131,7 +2131,10 @@
:prefix prefix :prefix prefix
:export ep} (table ;args)) :export ep} (table ;args))
(def newenv (require path ;args)) (def newenv (require path ;args))
(def prefix (or (and as (string as "/")) prefix (string path "/"))) (def prefix (or
(and as (string as "/"))
prefix
(string (last (string/split "/" path)) "/")))
(loop [[k v] :pairs newenv :when (symbol? k) :when (not (v :private))] (loop [[k v] :pairs newenv :when (symbol? k) :when (not (v :private))]
(def newv (table/setproto @{:private (not ep)} v)) (def newv (table/setproto @{:private (not ep)} v))
(put env (symbol prefix k) newv))) (put env (symbol prefix k) newv)))