From 1684fc0bedfa9fa9a5a7a22d6fb44e660a203a1c Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Thu, 13 Aug 2015 06:41:55 -0700
Subject: Print object readably in class mismatch error.

* lib.c (class_check): Use ~s to print offending object.
---
 lib.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;
 }
 
-- 
cgit v1.2.3