Distinguish exceptions from results in repl.

* parser.c (repl): Print "** " sequence in front
of exception.

1 files changed, 1 insertions, 0 deletions

diff --git a/parser.c b/parser.c
index f64c4681..f346c69c 100644
--- a/parser.c
+++ b/parser.c
@@ -542,6 +542,7 @@ val repl(val bindings, val in_stream, val out_stream)
       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)) {
+        put_string(lit("** "), out_stream);
         obj_pprint(car(exvals), out_stream);
         if (cdr(exvals)) {
           put_string(lit(" "), out_stream);