Add `not` and `and` builtins for ir compilation

1 files changed, 11 insertions, 4 deletions

diff --git a/src/parser.c b/src/parser.c
index ce0c395..29a0444 100644
--- a/src/parser.c
+++ b/src/parser.c
@@ -5,6 +5,7 @@ static Object **objects = NULL;
 static Root *roots = NULL;
 static Environment **environments = NULL;
 
+// Builtin procedures.
 static Object builtins[] = {
     { .type = OBJ_TYPE_BUILTIN, .builtin = BUILTIN_ADD,       .builtin_text = STRING("+")       },
     { .type = OBJ_TYPE_BUILTIN, .builtin = BUILTIN_SUB,       .builtin_text = STRING("-")       },
@@ -29,6 +30,11 @@ static Object builtins[] = {
     { .type = OBJ_TYPE_BUILTIN, .builtin = BUILTIN_CDR,       .builtin_text = STRING("cdr")     },
 };
 
+// Static singleton objects.
+static Object obj_nil = { .type = OBJ_TYPE_NIL };
+static Object obj_true = { .type = OBJ_TYPE_TRUE };
+static Object obj_false = { .type = OBJ_TYPE_FALSE };
+
 Token
 peek_token(const Parser *parser) {
     if (parser->current >= array_size(parser->tokens)) {
@@ -80,9 +86,10 @@ parse_fixnum(Token tok) {
 
 Object *
 parse_bool(Token tok) {
-    ObjectType type = tok.type == TOKEN_TRUE ? OBJ_TYPE_TRUE : OBJ_TYPE_FALSE;
-    Object *ret = object_alloc(tok, type);
-    return ret;
+    if (tok.type == TOKEN_TRUE) {
+        return &obj_true;
+    }
+    return &obj_false;
 }
 
 Object *
@@ -444,7 +451,7 @@ parse_tree(Parser *parser, Errors *errors) {
             return parse_symbol(tok);
         } break;
         case TOKEN_NIL: {
-            return object_alloc(tok, OBJ_TYPE_NIL);
+            return &obj_nil;
         } break;
         default: {
             break;