From 0ad792a100bb3bf86f5cb88882389282622aae66 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Sat, 11 Feb 2012 20:09:06 +0900
Subject: [PATCH] Resetting (interaction-environment) after -x<language>.

---
 main.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/main.c b/main.c
index 4d3fbe24..56a5c9c1 100644
--- a/main.c
+++ b/main.c
@@ -355,7 +355,10 @@ void run_main (int argc, char **argv) {
         if (*p == '.') *p=' ';
       tmp = check_exception(ctx, sexp_eval_string(ctx, impmod, -1, (c=='x' ? sexp_global(ctx, SEXP_G_META_ENV) : env)));
       free(impmod);
-      if (c == 'x') sexp_context_env(ctx) = env = tmp;
+      if (c == 'x') {
+        sexp_context_env(ctx) = env = tmp;
+        sexp_set_parameter(ctx, env, sexp_global(ctx, SEXP_G_INTERACTION_ENV_SYMBOL), env);
+      }
 #endif
       break;
     case 'q':