* hash.c (hash_begin): Missing type check added, otherwise

passing in an object that is not a hash results in corruption
or crashing behavior.

* lib.c (class_check): Improved to a one-step check with a clear
message.

1 files changed, 2 insertions, 3 deletions

diff --git a/lib.c b/lib.c
index 881d2c0c..0aedac3f 100644
--- a/lib.c
+++ b/lib.c
@@ -169,9 +169,8 @@ val type_check3(val obj, int t1, int t2, int t3)
 
 val class_check(val cobj, val class_sym)
 {
-  type_check (cobj, COBJ);
-  type_assert (cobj->co.cls == class_sym, (lit("~a is not a cobj of class ~a"),
-                                           cobj, class_sym));
+  type_assert (cobj && cobj->t.type == COBJ && cobj->co.cls == class_sym, 
+               (lit("~a is not of type ~a"), cobj, class_sym, nao));
   return t;
 }