diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2015-09-06 22:48:44 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2015-09-06 22:48:44 -0700 |
commit | a17db859170976269eb79ddb0bbcbd5afabd45d7 (patch) | |
tree | 1159f6c83846dfc62e2a0bea9ed0858db001b315 | |
parent | 1cabc4bd21295e92aff4776adebfb6f8c7a86f8b (diff) | |
download | txr-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.
-rw-r--r-- | parser.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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); |