diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2016-10-21 06:26:45 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2016-10-21 06:26:45 -0700 |
commit | 0279e408933e94213ca09381f4bc183859072cf0 (patch) | |
tree | 06796edc82a869dd56892b7da442f1cd175c0532 | |
parent | 0dafb8b8b7030dc63dce6c5bfb12dac526205696 (diff) | |
download | txr-0279e408933e94213ca09381f4bc183859072cf0.tar.gz txr-0279e408933e94213ca09381f4bc183859072cf0.tar.bz2 txr-0279e408933e94213ca09381f4bc183859072cf0.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.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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); |