summaryrefslogtreecommitdiffstats
path: root/parser.c
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2015-09-06 22:48:44 -0700
committerKaz Kylheku <kaz@kylheku.com>2015-09-06 22:48:44 -0700
commita17db859170976269eb79ddb0bbcbd5afabd45d7 (patch)
tree1159f6c83846dfc62e2a0bea9ed0858db001b315 /parser.c
parent1cabc4bd21295e92aff4776adebfb6f8c7a86f8b (diff)
downloadtxr-a17db859170976269eb79ddb0bbcbd5afabd45d7.tar.gz
txr-a17db859170976269eb79ddb0bbcbd5afabd45d7.tar.bz2
txr-a17db859170976269eb79ddb0bbcbd5afabd45d7.zip
Repl will print something for syntax error exceptions.
* parser.c (repl): Print a simple fixed message when a syntax error exception is caught, just so the fact is noted.
Diffstat (limited to 'parser.c')
-rw-r--r--parser.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/parser.c b/parser.c
index 9a6217e8..035291f6 100644
--- a/parser.c
+++ b/parser.c
@@ -550,7 +550,7 @@ val repl(val bindings, val in_stream, val out_stream)
lino_hist_add(ls, line_u8);
if (uw_exception_subtype_p(exsym, syntax_error_s)) {
- /* suppress syntax error exceptions: uninformative in the repl */
+ put_line(lit("** syntax error"), out_stream);
} else if (uw_exception_subtype_p(exsym, error_s)) {
put_string(lit("** "), out_stream);
obj_pprint(car(exvals), out_stream);