Add dead code elimination to AST tree

1 files changed, 2 insertions, 0 deletions

diff --git a/src/parser.h b/src/parser.h
index dff40d8..01f53b0 100755
--- a/src/parser.h
+++ b/src/parser.h
@@ -108,6 +108,8 @@ void free_objects(void);
 #define IS_NIL(VAL)    ((VAL)->type == OBJ_TYPE_NIL)
 #define IS_TRUE(VAL)   ((VAL)->type != OBJ_TYPE_FALSE)
 #define IS_FALSE(VAL)  ((VAL)->type == OBJ_TYPE_FALSE)
+#define IS_BOOL(VAL)   \
+    (((VAL)->type == OBJ_TYPE_FALSE) || ((VAL)->type == OBJ_TYPE_TRUE))
 #define IS_FIXNUM(VAL) ((VAL)->type == OBJ_TYPE_FIXNUM)
 #define IS_STRING(VAL) ((VAL)->type == OBJ_TYPE_STRING)
 #define IS_SYMBOL(VAL) ((VAL)->type == OBJ_TYPE_SYMBOL)