From 8f0c21094bc69a9adbebc42a4fc4744ed0501428 Mon Sep 17 00:00:00 2001
From: Bad Diode <bd@badd10de.dev>
Date: Sun, 10 Oct 2021 13:43:05 +0200
Subject: Add if primitive procedure

---
 src/bootstrap/primitives.c | 23 ++++++++++++++++++++++-
 1 file changed, 22 insertions(+), 1 deletion(-)

(limited to 'src/bootstrap/primitives.c')

diff --git a/src/bootstrap/primitives.c b/src/bootstrap/primitives.c
index 97058f9..61ce360 100644
--- a/src/bootstrap/primitives.c
+++ b/src/bootstrap/primitives.c
@@ -309,5 +309,26 @@ proc_or(Object *args) {
     return obj_false;
 }
 
-// TODO: if/cond
+Object *
+proc_if(Object *args) {
+    if (args->type != OBJ_TYPE_PAIR || args->cdr->type != OBJ_TYPE_PAIR) {
+        fprintf(stderr, "error: wrong number of arguments.\n");
+        return NULL;
+    }
+
+    Object *condition = eval(args->car);
+    if (condition == obj_true) {
+        Object *ret = eval(args->cdr->car);
+        return ret;
+    }
+    if (args->cdr->cdr != obj_nil) {
+        Object *ret = eval(args->cdr->cdr->car);
+        return ret;
+    }
+
+    return obj_nil;
+}
+
+// TODO: cond
+// TODO: equality greater than smaller than...
 // TODO: fixnum left/right shift, mask, invert
-- 
cgit v1.2.1