From aad3cebd7a4ea041d479d7c14675bb10350044a5 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Sun, 20 Dec 2015 00:31:50 -0500
Subject: [PATCH] Allow module to compile

---
 scheme/base.sld | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/scheme/base.sld b/scheme/base.sld
index 4530c4c5..e3e06797 100644
--- a/scheme/base.sld
+++ b/scheme/base.sld
@@ -9,7 +9,7 @@
     thread-specific-set!
     thread-start!
     thread-yield!
-    thread-terminate!
+;    thread-terminate!
     ;; END threads
     ; TODO: need filter for the next two. also, they really belong in SRFI-1, not here
     ;delete
@@ -685,6 +685,6 @@
              (mutator-id (Cyc-spawn-thread! thunk)))
         (vector-set! t 2 mutator-id)))
     (define (thread-yield!) (thread-sleep! 1))
-    (define (thread-terminate!) (Cyc-end-thread!))
+;    (define (thread-terminate!) (Cyc-end-thread!))
     ;; TODO: thread-join!
 ))