diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2015-08-13 06:41:55 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2015-08-13 06:41:55 -0700 |
commit | 1684fc0bedfa9fa9a5a7a22d6fb44e660a203a1c (patch) | |
tree | b8a7af2912a39a398dcece0b092ab8e57f615f1b | |
parent | 48e0e179ca9579eca414804aa4f8e7ae8fb040bb (diff) | |
download | txr-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.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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; } |