summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--parser.c4
1 files changed, 4 insertions, 0 deletions
diff --git a/parser.c b/parser.c
index 489ab1b5..756b6fae 100644
--- a/parser.c
+++ b/parser.c
@@ -945,6 +945,9 @@ val repl(val bindings, val in_stream, val out_stream)
val multi_line_var = lookup_global_var(listener_multi_line_p_s);
val sel_inclusive_var = lookup_global_var(listener_sel_inclusive_p_s);
val rw_f = func_f1v(out_stream, repl_warning);
+ val saved_dyn_env = set_dyn_env(make_env(nil, nil, dyn_env));
+
+ env_vbind(dyn_env, stderr_s, out_stream);
for (; bindings; bindings = cdr(bindings)) {
val binding = car(bindings);
@@ -1070,6 +1073,7 @@ val repl(val bindings, val in_stream, val out_stream)
set_sig_handler(num(SIGINT), old_sig_handler);
+ dyn_env = saved_dyn_env;
if (histfile_u8)
lino_hist_save(ls, histfile_u8);