srfi-18: add a slot for thread context in the thread object

Partial work towards addressing issue #534.
This commit is contained in:
Yorick Hardy 2025-01-03 00:45:52 +02:00
parent 8e2d76fbce
commit dd2b5c1174

View file

@ -74,6 +74,7 @@
;; - internal
;; - end of thread cont (or #f for default)
;; - end-result - Result of thread that terminates successfully
;; - internal thread context at termination, e.g. parameterised objects
(vector
'cyc-thread-obj
thunk
@ -82,6 +83,7 @@
#f
#f
#f
#f
#f)))
(define (thread-name t) (vector-ref t 3))