From 7d32069e2a06aa9a7efbc49197f9e21889cc8ad7 Mon Sep 17 00:00:00 2001
From: Yorick Hardy <yorickhardy@gmail.com>
Date: Thu, 16 Jan 2025 20:26:10 +0200
Subject: [PATCH] srfi-18: define all of the components of the
 *primordial-thread* thread object

---
 srfi/18.sld | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/srfi/18.sld b/srfi/18.sld
index afe13b84..573af483 100644
--- a/srfi/18.sld
+++ b/srfi/18.sld
@@ -98,7 +98,7 @@
       (%get-thread-data))
 
     (define *primordial-thread*
-      (vector 'cyc-thread-obj #f #f "main thread" #f #f))
+      (vector 'cyc-thread-obj #f #f "main thread" #f #f #f #f))
 
     (define-c %current-thread
       "(void *data, int argc, closure _, object k)"