mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-10-31 07:33:01 +00:00
Code Issues 1 Releases Wiki Activity

Merge pull request #883 from pyrmont/feature.netrepl-relative-imports

Browse Source 
Update location of current file in run-context
This commit is contained in:
Calvin Rose
2021-11-30 14:17:34 -06:00
committed by GitHub
parent a0ddfcb109 6bf9f89429
commit 516fa4e49d
1 changed files with 8 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/boot/boot.janet
View File

@@ -2292,6 +2292,8 @@
(var where default-where) (var where default-where)
(unless (= where "<anonymous>") (put env :current-file where))
# Evaluate 1 source form in a protected manner # Evaluate 1 source form in a protected manner
(def lints @[]) (def lints @[])
(defn eval1 [source &opt l c] (defn eval1 [source &opt l c]
@@ -2370,8 +2372,12 @@
[:source new-where] [:source new-where]
(if (string? new-where) (if (string? new-where)
(do
(set where new-where) (set where new-where)
(set where default-where)) (put env :current-file new-where))
(do
(set where default-where)
(put env :current-file nil)))
(do (do
(var pindex 0) (var pindex 0)