Dynamically rebind *package* in @(load).

* match.c (v_load): Re-bind the *package* variable in the
new dynamic scope to its current value, so that any
modifications to it by the loaded code are thrown away,
just like in the Lisp load function.

1 files changed, 1 insertions, 0 deletions

diff --git a/match.c b/match.c
index a97a2b65..3d334deb 100644
--- a/match.c
+++ b/match.c
@@ -3995,6 +3995,7 @@ static val v_load(match_files_ctx *c)
     dyn_env = make_env(nil, nil, dyn_env);
     env_vbind(dyn_env, load_path_s, name);
     env_vbind(dyn_env, load_recursive_s, t);
+    env_vbind(dyn_env, package_s, cur_package);
 
     if (!txr_lisp_p) {
       int gc = gc_state(0);