Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 04:25:06 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Formatting

Browse source
This commit is contained in:
Justin Ethier 2016-01-18 22:43:30 -05:00
parent 76bbca68e5
commit 1a3d88f999
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
srfi/18.sld
View file

@ -64,8 +64,10 @@
(define (thread-name t) (vector-ref t 3)) (define (thread-name t) (vector-ref t 3))
(define (thread-specific t) (vector-ref t 4)) (define (thread-specific t) (vector-ref t 4))
(define (thread-specific-set! t obj) (vector-set! t 4 obj)) (define (thread-specific-set! t obj) (vector-set! t 4 obj))
; TODO: ; TODO:
; current-thread - not sure how to look this up yet... may need a global list of running threads ; 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) (define (thread-start! t)
;; Initiate a GC prior to running the thread, in case ;; Initiate a GC prior to running the thread, in case
;; t contains any closures on the "parent" thread's stack ;; t contains any closures on the "parent" thread's stack