cbaines/guile-knots
1
Fork 0
Code Issues Pull requests Activity Actions

Pass through default-max-waiters in make-thread-pool

Browse source
This commit is contained in:
Christopher Baines 2025-11-17 11:19:30 +00:00
parent 2446078657
commit e78e41b542
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
knots/thread-pool.scm
View file

@ -402,7 +402,8 @@ from there, or #f if that would be an empty string."
(expire-on-exception? #f) (expire-on-exception? #f)
(name "unnamed") (name "unnamed")
(use-default-io-waiters? #t) (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 "Return a channel used to offload work to a dedicated thread. ARGS are the
arguments of the thread pool procedure." arguments of the thread pool procedure."
(define param (define param
@ -425,7 +426,8 @@ arguments of the thread pool procedure."
#:delay-logger delay-logger #:delay-logger delay-logger
#:scheduler scheduler #:scheduler scheduler
#:duration-logger duration-logger #: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 (thread-pool resource-pool
param))) param)))