From 3583d4c92f8fbaf555d75baf2e986bc79477cf5a Mon Sep 17 00:00:00 2001 From: Calvin Rose Date: Sat, 8 Mar 2025 14:20:04 -0600 Subject: [PATCH] Fix defdyn in flychecking. --- src/boot/boot.janet | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/src/boot/boot.janet b/src/boot/boot.janet index dd8cb326..13ffd675 100644 --- a/src/boot/boot.janet +++ b/src/boot/boot.janet @@ -3984,7 +3984,7 @@ (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 - '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}) (defn- use-2 [evaluator args] @@ -4137,7 +4137,7 @@ (os/cd workdir) ([_] (print "cannot enter source directory " workdir " for bundle " bundle-name))) (defer (os/cd dir) - (def new-env (make-env (curenv))) + (def new-env (make-env)) (put new-env *module-cache* @{}) (put new-env *module-loading* @{}) (put new-env *module-make-env* (fn make-bundle-env [&] (make-env new-env))) @@ -4152,7 +4152,6 @@ [module bundle-name hook & args] (def hookf (module/value module (symbol hook))) (unless hookf (break)) - (def manifest (bundle/manifest bundle-name)) (def dir (os/cwd)) (os/cd (get module :workdir ".")) (defer (os/cd dir)