From 00210623d75fc73c01bf73be1f85dfaa8158bf2d Mon Sep 17 00:00:00 2001 From: Justin Ethier 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! ))