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

Address exception naming inconsistencies

Browse source
This commit is contained in:
Christopher Baines 2025-06-21 09:43:19 +01:00
parent 8f669f133f
commit 5663a5f2e9
2 changed files with 24 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

12
knots/thread-pool.scm
View file

@ -184,21 +184,21 @@ from there, or #f if that would be an empty string."
(thread-pool-resource-pool pool))
'default-checkout-timeout)))
(define &thread-pool-timeout
(make-exception-type '&thread-pool-timeout
(define &thread-pool-timeout-error
(make-exception-type '&thread-pool-timeout-error
&error
'(pool)))
(define make-thread-pool-timeout-error
(record-constructor &thread-pool-timeout))
(record-constructor &thread-pool-timeout-error))
(define thread-pool-timeout-error-pool
(exception-accessor
&thread-pool-timeout
(record-accessor &thread-pool-timeout 'pool)))
&thread-pool-timeout-error
(record-accessor &thread-pool-timeout-error 'pool)))
(define thread-pool-timeout-error?
(record-predicate &thread-pool-timeout))
(record-predicate &thread-pool-timeout-error))
(define* (make-fixed-size-thread-pool size
#:key