From a17db859170976269eb79ddb0bbcbd5afabd45d7 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sun, 6 Sep 2015 22:48:44 -0700
Subject: 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.
---
 parser.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'parser.c')

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);
-- 
cgit v1.2.3