Add some boolean procedures

1 files changed, 13 insertions, 0 deletions

diff --git a/src/bootstrap/primitives.c b/src/bootstrap/primitives.c
index f72e484..e4c18cd 100644
--- a/src/bootstrap/primitives.c
+++ b/src/bootstrap/primitives.c
@@ -221,3 +221,16 @@ proc_display(Object *args) {
     }
     return obj_nil;
 }
+
+Object *
+proc_is_boolean(Object *args) {
+    if (args->car == obj_true || args->car == obj_false) {
+        return obj_true;
+    }
+    return obj_false;
+}
+
+Object *
+proc_is_false(Object *args) {
+    return args->car == obj_false ? obj_true : obj_false;
+}