new type `boolean'

1 files changed, 8 insertions, 1 deletions

diff --git a/lobject.h b/lobject.h
index bf07e3db..9d197af2 100644
--- a/lobject.h
+++ b/lobject.h
@@ -37,7 +37,8 @@ typedef union {
   union Closure *cl;
   struct Table *h;
   struct lua_TObject *v;
-  lua_Number n;         /* LUA_TNUMBER */
+  lua_Number n;
+  int b;
 } Value;
 
 
@@ -55,7 +56,10 @@ typedef struct lua_TObject {
 #define clvalue(o)      ((o)->value.cl)
 #define hvalue(o)       ((o)->value.h)
 #define vvalue(o)       ((o)->value.v)
+#define bvalue(o)       ((o)->value.b)
 
+#define l_isfalse(o)    (ttype(o) == LUA_TNIL || \
+                        (ttype(o) == LUA_TBOOLEAN && bvalue(o) == 0))
 
 /* Macros to set values */
 #define setnvalue(obj,x) \
@@ -63,6 +67,9 @@ typedef struct lua_TObject {
 
 #define chgnvalue(obj,x)        ((obj)->value.n=(x))
 
+#define setbvalue(obj,x) \
+  { TObject *_o=(obj); _o->tt=LUA_TBOOLEAN; _o->value.b=(x); }
+
 #define setsvalue(obj,x) \
   { TObject *_o=(obj); _o->tt=LUA_TSTRING; _o->value.ts=(x); }