summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2015-08-13 06:41:55 -0700
committerKaz Kylheku <kaz@kylheku.com>2015-08-13 06:41:55 -0700
commit1684fc0bedfa9fa9a5a7a22d6fb44e660a203a1c (patch)
treeb8a7af2912a39a398dcece0b092ab8e57f615f1b
parent48e0e179ca9579eca414804aa4f8e7ae8fb040bb (diff)
downloadtxr-1684fc0bedfa9fa9a5a7a22d6fb44e660a203a1c.tar.gz
txr-1684fc0bedfa9fa9a5a7a22d6fb44e660a203a1c.tar.bz2
txr-1684fc0bedfa9fa9a5a7a22d6fb44e660a203a1c.zip
Print object readably in class mismatch error.
* lib.c (class_check): Use ~s to print offending object.
-rw-r--r--lib.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/lib.c b/lib.c
index 103c92cd..59f27aa6 100644
--- a/lib.c
+++ b/lib.c
@@ -215,7 +215,7 @@ val class_check(val cobj, val class_sym)
{
type_assert (is_ptr(cobj) && cobj->t.type == COBJ &&
cobj->co.cls == class_sym,
- (lit("~a is not of type ~a"), cobj, class_sym, nao));
+ (lit("~s is not of type ~s"), cobj, class_sym, nao));
return t;
}