mirror of
https://github.com/janet-lang/janet
synced 2025-06-11 11:04:13 +00:00
Fix defdyn in flychecking.
This commit is contained in:
parent
a456c67a7b
commit
3583d4c92f
@ -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)
|
||||||
|
Loading…
x
Reference in New Issue
Block a user