repl: syntax error diag improvement.

* parser.c (repl): syntax error exceptions carry some text as
an argument, which we now print. This distinguishes
end-of-stream syntax errors from real ones.

1 files changed, 1 insertions, 1 deletions

diff --git a/parser.c b/parser.c
index 822210ce..368ecebd 100644
--- a/parser.c
+++ b/parser.c
@@ -1616,7 +1616,7 @@ val repl(val bindings, val in_stream, val out_stream, val env)
       lino_hist_add(ls, line_w);
 
       if (uw_exception_subtype_p(exsym, syntax_error_s)) {
-        put_line(lit("** syntax error"), out_stream);
+        format(out_stream, lit("** syntax error: ~a\n"), car(exvals), nao);
       } else if (uw_exception_subtype_p(exsym, error_s)) {
         error_trace(exsym, exvals, out_stream, lit("**"));
       } else {