Add check for obj type

This commit is contained in:
Justin Ethier 2019-06-03 13:24:42 -04:00
parent 7bd77e1ac3
commit 015b9b2a41

View file

@ -67,7 +67,7 @@ void gc_init_heap(long heap_size);
#define Cyc_verify_mutable(data, obj) { \
if (immutable(obj)) Cyc_immutable_obj_error(data, obj); }
#define Cyc_verify_immutable(data, obj) { \
if (!immutable(obj)) Cyc_mutable_obj_error(data, obj); }
if (is_object_type(obj) && !immutable(obj)) Cyc_mutable_obj_error(data, obj); }
#define Cyc_check_type(data, fnc_test, tag, obj) { \
if ((boolean_f == fnc_test(obj))) Cyc_invalid_type_error(data, tag, obj); }
#define Cyc_check_type2(data, fnc_test, tag, obj) { \