mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-06-16 21:44:17 +00:00
Code Issues 1 Releases Wiki Activity

Fix defdyn in flychecking.

Browse Source
This commit is contained in:
Calvin Rose 2025-03-08 14:20:04 -06:00
parent a456c67a7b
commit 3583d4c92f
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/boot/boot.janet
View File

@ -3984,7 +3984,7 @@
(def- safe-forms {'defn true 'varfn true 'defn- true 'defmacro true 'defmacro- true (def- safe-forms {'defn true 'varfn true 'defn- true 'defmacro true 'defmacro- true
'def is-safe-def 'var is-safe-def 'def- is-safe-def 'var- is-safe-def 'def is-safe-def 'var is-safe-def 'def- is-safe-def 'var- is-safe-def
'defglobal is-safe-def 'varglobal is-safe-def}) 'defglobal is-safe-def 'varglobal is-safe-def 'defdyn true})
(def- importers {'import true 'import* true 'dofile true 'require true}) (def- importers {'import true 'import* true 'dofile true 'require true})
(defn- use-2 [evaluator args] (defn- use-2 [evaluator args]
@ -4137,7 +4137,7 @@
(os/cd workdir) (os/cd workdir)
([_] (print "cannot enter source directory " workdir " for bundle " bundle-name))) ([_] (print "cannot enter source directory " workdir " for bundle " bundle-name)))
(defer (os/cd dir) (defer (os/cd dir)
(def new-env (make-env (curenv))) (def new-env (make-env))
(put new-env *module-cache* @{}) (put new-env *module-cache* @{})
(put new-env *module-loading* @{}) (put new-env *module-loading* @{})
(put new-env *module-make-env* (fn make-bundle-env [&] (make-env new-env))) (put new-env *module-make-env* (fn make-bundle-env [&] (make-env new-env)))
@ -4152,7 +4152,6 @@
[module bundle-name hook & args] [module bundle-name hook & args]
(def hookf (module/value module (symbol hook))) (def hookf (module/value module (symbol hook)))
(unless hookf (break)) (unless hookf (break))
(def manifest (bundle/manifest bundle-name))
(def dir (os/cwd)) (def dir (os/cwd))
(os/cd (get module :workdir ".")) (os/cd (get module :workdir "."))
(defer (os/cd dir) (defer (os/cd dir)