mirror of
https://github.com/justinethier/cyclone.git
synced 2025-05-23 20:15:05 +02:00
Issue #370 - Added current-thread-data
This allows returning the current thread data structure in a Opaque object.
This commit is contained in:
parent
3bd18880a4
commit
738877f225
1 changed files with 4 additions and 0 deletions
|
@ -19,6 +19,7 @@
|
|||
thread-yield!
|
||||
thread-terminate!
|
||||
current-thread
|
||||
current-thread-data
|
||||
thread-join!
|
||||
|
||||
mutex?
|
||||
|
@ -91,6 +92,9 @@
|
|||
*primordial-thread*
|
||||
t)))
|
||||
|
||||
(define (current-thread-data)
|
||||
(%get-thread-data))
|
||||
|
||||
(define *primordial-thread*
|
||||
(vector 'cyc-thread-obj #f #f "main thread" #f #f))
|
||||
|
||||
|
|
Loading…
Add table
Reference in a new issue