From b2eb4ca71d4b85df0cef4aa354334ba867d2cfe2 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sun, 27 Dec 2015 19:08:42 -0800 Subject: Use subtype check for eval error. * eval.c (error_trace): Don't check exsym for exact equality to eval-error, but whether it is a subtype. --- eval.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/eval.c b/eval.c index a63f369b..e92c5845 100644 --- a/eval.c +++ b/eval.c @@ -239,7 +239,7 @@ void error_trace(val exsym, val exvals, val out_stream, val prefix) else format(out_stream, lit("~a ~!~a\n"), prefix, car(exvals), nao); - if (info && exsym != eval_error_s) { + if (info && !uw_exception_subtype_p(exsym, eval_error_s)) { val first, origin, oinfo; for (first = t; last; last = origin, info = oinfo, first = nil) { -- cgit v1.2.3