From 14266f42ce669e032fedd9f0ed5b364fe396968a Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 14 Nov 2016 20:18:48 -0800
Subject: 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.
---
 txr.c | 1 +
 1 file changed, 1 insertion(+)

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;
-- 
cgit v1.2.3