From ebacbd123ab9cd937fdddbfa6a6bbb25645c0f33 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sun, 26 Oct 2014 17:29:50 -0700 Subject: * 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. --- lib.h | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'lib.h') 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); -- cgit v1.2.3