Issue #370 - Added current-thread-data

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

View file

@ -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))