Switch to user package before entering repl.

* txr.c (txr_main): The file loaded by the -i command line
argument could manipulate *package*. Let's reset *package*
to the user package before running the REPL.

1 files changed, 1 insertions, 0 deletions

diff --git a/txr.c b/txr.c
index 30a449f3..c31c7fa2 100644
--- a/txr.c
+++ b/txr.c
@@ -1005,6 +1005,7 @@ repl:
            num(opt_compat), nao);
   reg_var(args_s, or2(orig_args, arg_list));
   reg_varl(intern(lit("self-path"), user_package), lit("listener"));
+  env_vbind(dyn_env, package_s, user_package);
   repl(bindings, std_input, std_output);
 #endif
   return 0;