From cbafdb8668f33c7d3eabeebc60731df0d585636a Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Sun, 25 May 2025 15:34:07 +0100
Subject: [PATCH] Respect use-default-io-waiters? for the fixed size thread
 pools

---
 knots/thread-pool.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/knots/thread-pool.scm b/knots/thread-pool.scm
index 029a34b..7dad3d8 100644
--- a/knots/thread-pool.scm
+++ b/knots/thread-pool.scm
@@ -371,7 +371,11 @@ from there, or #f if that would be an empty string."
 
   (for-each
    (lambda (i)
-     (start-thread i channel))
+     (if use-default-io-waiters?
+         (call-with-default-io-waiters
+          (lambda ()
+            (start-thread i channel)))
+         (start-thread i channel)))
    (iota size))
 
   (fixed-size-thread-pool channel