summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2016-10-21 06:26:45 -0700
committerKaz Kylheku <kaz@kylheku.com>2016-10-21 06:26:45 -0700
commit329e80511a928360e91a6aa0962a9a6be0616dbc (patch)
tree06796edc82a869dd56892b7da442f1cd175c0532
parentefb0f39a451dda72ad2468731eb1af28b88bf4a6 (diff)
downloadtxr-329e80511a928360e91a6aa0962a9a6be0616dbc.tar.gz
txr-329e80511a928360e91a6aa0962a9a6be0616dbc.tar.bz2
txr-329e80511a928360e91a6aa0962a9a6be0616dbc.zip
repl: don't send error trace to *stderr*.
* parser.c (repl): Pass out_stream rather than std_error to error_trace. I don't remember the original intent here. All it does is create strange puzzling behavior when an error occurs in the middle of a line of output that isn't flushed yet.
-rw-r--r--parser.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/parser.c b/parser.c
index cd542fe8..8817abe4 100644
--- a/parser.c
+++ b/parser.c
@@ -968,7 +968,7 @@ val repl(val bindings, val in_stream, val out_stream)
if (uw_exception_subtype_p(exsym, syntax_error_s)) {
put_line(lit("** syntax error"), out_stream);
} else if (uw_exception_subtype_p(exsym, error_s)) {
- error_trace(exsym, exvals, std_error, lit("**"));
+ error_trace(exsym, exvals, out_stream, lit("**"));
} else {
format(out_stream, lit("** ~!~s exception, args: ~!~s\n"),
exsym, exvals, nao);