From e6772a66f2b6f2e0b4c4565c6079dde4f046bcee Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sun, 6 Sep 2015 10:15:16 -0700 Subject: Distinguish exceptions from results in repl. * parser.c (repl): Print "** " sequence in front of exception. --- parser.c | 1 + 1 file changed, 1 insertion(+) (limited to 'parser.c') 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); -- cgit v1.2.3