* lib.c (type_check): Function moved to header file inline.

(throw_mismatch): New function.

* lib.h (throw_mismatch): Declared.
(type_mismatch): Declaration turned into inline function.

1 files changed, 7 insertions, 1 deletions

diff --git a/lib.h b/lib.h
index 3e62f25b..9a1056d1 100644
--- a/lib.h
+++ b/lib.h
@@ -414,7 +414,13 @@ extern alloc_bytes_t gc_bytes;
 
 val identity(val obj);
 val typeof(val obj);
-val type_check(val obj, int);
+val throw_mismatch(val obj, type_t);
+INLINE val type_check(val obj, type_t typecode)
+{
+  if (type(obj) != typecode)
+    throw_mismatch(obj, typecode);
+  return t;
+}
 val type_check2(val obj, int, int);
 val type_check3(val obj, int, int, int);
 val class_check(val cobj, val class_sym);