From c6bd33bfe98e0eae3480674c5732b9fcf168ad74 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Mon, 22 Feb 2016 22:13:58 -0500
Subject: [PATCH] Cleanup

---
 srfi/18.sld | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/srfi/18.sld b/srfi/18.sld
index e2972cea..16d50cc1 100644
--- a/srfi/18.sld
+++ b/srfi/18.sld
@@ -91,7 +91,8 @@
 
     (define-c thread-sleep!
       "(void *data, int argc, closure _, object k, object timeout)"
-      " return_closcall1(data, k, Cyc_thread_sleep(data, timeout)); ")
+      " Cyc_thread_sleep(data, timeout);
+        return_closcall1(data, k, boolean_t); ")
 
     ;; Take a single object and if it is on the stack, return a copy
     ;; of it that is allocated on the heap. NOTE the original object