From 1a3d88f999b2bc8da0dc4c6b43d8d10296026bbb Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Mon, 18 Jan 2016 22:43:30 -0500 Subject: [PATCH] Formatting --- srfi/18.sld | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/srfi/18.sld b/srfi/18.sld index 46f384d3..2da3db1f 100644 --- a/srfi/18.sld +++ b/srfi/18.sld @@ -64,8 +64,10 @@ (define (thread-name t) (vector-ref t 3)) (define (thread-specific t) (vector-ref t 4)) (define (thread-specific-set! t obj) (vector-set! t 4 obj)) -; TODO: -; current-thread - not sure how to look this up yet... may need a global list of running threads + + ; TODO: + ; current-thread - not sure how to look this up yet... may need a global list of running threads. Unfortunately need the vector here + (define (thread-start! t) ;; Initiate a GC prior to running the thread, in case ;; t contains any closures on the "parent" thread's stack