From bb4433b9edd76baf75bfe9488ac54b41a26b861b Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Tue, 16 Feb 2016 02:49:37 -0500
Subject: [PATCH] WIP

---
 srfi/18.sld | 24 ++++++++++++++++++++++--
 1 file changed, 22 insertions(+), 2 deletions(-)

diff --git a/srfi/18.sld b/srfi/18.sld
index 83da0d34..90bd17c1 100644
--- a/srfi/18.sld
+++ b/srfi/18.sld
@@ -34,8 +34,8 @@
     ;; mutex-state
 
     ;; TODO: condition variables are not implemented yet
-    ;; (condition-variable? obj)                             ;procedure
-    ;; (make-condition-variable [name])                      ;procedure
+    condition-variable?
+    make-condition-variable
     ;; (condition-variable-name condition-variable)          ;procedure
     ;; (condition-variable-specific condition-variable)      ;procedure
     ;; (condition-variable-specific-set! condition-variable obj) ;procedure
@@ -105,4 +105,24 @@
     (define-c Cyc-minor-gc
       "(void *data, int argc, closure _, object k)"
       " Cyc_trigger_minor_gc(data, k); ")
+
+    (define-c condition-variable?
+      "(void *data, int argc, closure _, object k, object obj)"
+      " object result = Cyc_is_cond_var(obj);
+        return_closcall1(data, k, result); ")
+    ;; (make-condition-variable [name])                      ;procedure
+;    (define-c make-condition-variable
+;      "(void *data, int argc, closure _, object k)"
+;      " int heap_grown;
+;        cond_var cond;
+;        cond_var_type tmp;
+;        tmp.hdr.mark = gc_color_red;
+;        tmp.hdr.grayed = 0;
+;        tmp.tag = cond_var_tag;
+;        cond = gc_alloc(Cyc_heap, sizeof(cond_var_type), (char *)(&tmp), (gc_thread_data *)data, &heap_grown);
+;        if (pthread_cond_init(&(cond->cond), NULL) != 0) {
+;          fprintf(stderr, "Unable to make condition variable\n");
+;          exit(1);
+;        }
+;        return_closcall1(data, k, cond); ")
 ))