[fix] TYPEP(x,y) should check x is not null too

zeehio · Feb 4, 2014 · b63314a · b63314a
1 parent ae5a7cc
commit b63314a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/include/siod_defs.h b/include/siod_defs.h
@@ -97,7 +97,7 @@ struct obj
 
 #define TYPE(x) (((x) == NIL) ? 0 : ((*(x)).type))
 
-#define TYPEP(x,y) (TYPE(x) == (y))
+#define TYPEP(x,y) ( (x != NULL) && (TYPE(x) == (y)) )
 #define NTYPEP(x,y) (TYPE(x) != (y))
 
 #define tc_nil    0