summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--parser.c4
1 files changed, 3 insertions, 1 deletions
diff --git a/parser.c b/parser.c
index d39d1fb6..e7dab1ca 100644
--- a/parser.c
+++ b/parser.c
@@ -535,7 +535,9 @@ val repl(val bindings, val in_stream, val out_stream)
}
uw_catch (exsym, exvals) {
- if (uw_exception_subtype_p(exsym, error_s)) {
+ if (uw_exception_subtype_p(exsym, syntax_error_s)) {
+ /* suppress syntax error exceptions: uninformative in the repl */
+ } else if (uw_exception_subtype_p(exsym, error_s)) {
obj_pprint(car(exvals), out_stream);
if (cdr(exvals)) {
put_string(lit(" "), out_stream);