From 5d795a63fbe292316de18a850aee2d045b869bd6 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Thu, 8 Oct 2015 06:59:45 -0700 Subject: Report objects with ~s in exception registration code. * unwind.c (uw_register_subtype): Error messages should print symbols with ~s, not the information-losing ~a. --- unwind.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'unwind.c') diff --git a/unwind.c b/unwind.c index f3f6f74f..6f488ae3 100644 --- a/unwind.c +++ b/unwind.c @@ -426,22 +426,22 @@ val uw_register_subtype(val sub, val sup) if (sup == t) return sup; uw_throwf(type_error_s, - lit("cannot define ~a as an exception subtype of ~a"), + lit("cannot define ~s as an exception subtype of ~s"), sub, sup, nao); } if (sup == nil) { uw_throwf(type_error_s, - lit("cannot define ~a as an exception subtype of ~a"), + lit("cannot define ~s as an exception subtype of ~s"), sub, sup, nao); } if (uw_exception_subtype_p(sub, sup)) - uw_throwf(type_error_s, lit("~a is already an exception subtype of ~a"), + uw_throwf(type_error_s, lit("~s is already an exception subtype of ~s"), sub, sup, nao); if (uw_exception_subtype_p(sup, sub)) - uw_throwf(type_error_s, lit("~a is already an exception supertype of ~a"), + uw_throwf(type_error_s, lit("~s is already an exception supertype of ~s"), sub, sup, nao); /* If sup symbol not registered, then we make it -- cgit v1.2.3