repl suppresses syntax error exceptions

* parser.c (repl): If an expression is caught of
type syntax-error, then just suppress it. It is not
informative in this situation because the syntax
error diagnostics have appeared on the tty.
A syntax error exceptions is thrown out of the
reader so that program logic doesn't ignore errors.

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);