From 0bc1df959700cc60ad6f9f289bcb905dc294ceb1 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sat, 29 May 2021 00:02:41 -0700 Subject: 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. --- parser.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 { -- cgit v1.2.3