From e78e41b5423d7f79c07cdad2f3a26297475f8901 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Mon, 17 Nov 2025 11:19:30 +0000 Subject: [PATCH] Pass through default-max-waiters in make-thread-pool --- knots/thread-pool.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/knots/thread-pool.scm b/knots/thread-pool.scm index 49572db..df4352a 100644 --- a/knots/thread-pool.scm +++ b/knots/thread-pool.scm @@ -402,7 +402,8 @@ from there, or #f if that would be an empty string." (expire-on-exception? #f) (name "unnamed") (use-default-io-waiters? #t) - default-checkout-timeout) + default-checkout-timeout + default-max-waiters) "Return a channel used to offload work to a dedicated thread. ARGS are the arguments of the thread pool procedure." (define param @@ -425,7 +426,8 @@ arguments of the thread pool procedure." #:delay-logger delay-logger #:scheduler scheduler #:duration-logger duration-logger - #:default-checkout-timeout default-checkout-timeout))) + #:default-checkout-timeout default-checkout-timeout + #:default-max-waiters default-max-waiters))) (thread-pool resource-pool param)))