1 files changed, 25 insertions, 1 deletions

diff --git a/src/bootstrap/primitives.c b/src/bootstrap/primitives.c
index 61ce360..29a1df8 100644
--- a/src/bootstrap/primitives.c
+++ b/src/bootstrap/primitives.c
@@ -329,6 +329,30 @@ proc_if(Object *args) {
     return obj_nil;
 }
 
-// TODO: cond
+Object *
+proc_cond(Object *args) {
+    if (args->type != OBJ_TYPE_PAIR) {
+        fprintf(stderr, "error: wrong number of arguments.\n");
+        return NULL;
+    }
+
+    if (args->car->type != OBJ_TYPE_PAIR) {
+        fprintf(stderr, "error: wrong argument type.\n");
+        return NULL;
+    }
+
+    while (args != obj_nil) {
+        Object *clause = args->car;
+        if (eval(clause->car) == obj_true) {
+            return eval(clause->cdr->car);
+        }
+
+        args = args->cdr;
+        clause = args->car;
+    }
+
+    return obj_nil;
+}
+
 // TODO: equality greater than smaller than...
 // TODO: fixnum left/right shift, mask, invert