From dd2b5c117430e813e5d4b0c2ad21b3602fcbce76 Mon Sep 17 00:00:00 2001
From: Yorick Hardy <yorickhardy@gmail.com>
Date: Fri, 3 Jan 2025 00:45:52 +0200
Subject: [PATCH] srfi-18: add a slot for thread context in the thread object

Partial work towards addressing issue #534.
---
 srfi/18.sld | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/srfi/18.sld b/srfi/18.sld
index 02499e6c..a7ee9a3b 100644
--- a/srfi/18.sld
+++ b/srfi/18.sld
@@ -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))