From 00210623d75fc73c01bf73be1f85dfaa8158bf2d Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Sat, 19 Dec 2015 23:59:52 -0500
Subject: [PATCH] Added thread-terminate

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

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