mirror of
https://github.com/justinethier/cyclone.git
synced 2025-05-25 04:55:04 +02:00
srfi-18: add a slot for thread context in the thread object
Partial work towards addressing issue #534.
This commit is contained in:
parent
8e2d76fbce
commit
dd2b5c1174
1 changed files with 2 additions and 0 deletions
|
@ -74,6 +74,7 @@
|
||||||
;; - internal
|
;; - internal
|
||||||
;; - end of thread cont (or #f for default)
|
;; - end of thread cont (or #f for default)
|
||||||
;; - end-result - Result of thread that terminates successfully
|
;; - end-result - Result of thread that terminates successfully
|
||||||
|
;; - internal thread context at termination, e.g. parameterised objects
|
||||||
(vector
|
(vector
|
||||||
'cyc-thread-obj
|
'cyc-thread-obj
|
||||||
thunk
|
thunk
|
||||||
|
@ -82,6 +83,7 @@
|
||||||
#f
|
#f
|
||||||
#f
|
#f
|
||||||
#f
|
#f
|
||||||
|
#f
|
||||||
#f)))
|
#f)))
|
||||||
|
|
||||||
(define (thread-name t) (vector-ref t 3))
|
(define (thread-name t) (vector-ref t 3))
|
||||||
|
|
Loading…
Add table
Reference in a new issue