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

Issue #370 - Added current-thread-data

Browse source 
This allows returning the current thread data structure in a Opaque object.
This commit is contained in:
Justin Ethier 2021-01-24 21:58:58 -05:00
parent 3bd18880a4
commit 738877f225
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
srfi/18.sld
View file

@ -19,6 +19,7 @@
thread-yield! thread-yield!
thread-terminate! thread-terminate!
current-thread current-thread
current-thread-data
thread-join! thread-join!
mutex? mutex?
@ -91,6 +92,9 @@
*primordial-thread* *primordial-thread*
t))) t)))
(define (current-thread-data)
(%get-thread-data))
(define *primordial-thread* (define *primordial-thread*
(vector 'cyc-thread-obj #f #f "main thread" #f #f)) (vector 'cyc-thread-obj #f #f "main thread" #f #f))