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

Fix record-predicate that should be exception-predicate

Browse source
This commit is contained in:
Christopher Baines 2025-06-27 00:16:18 +02:00
parent 8f3e0a9a1d
commit 163d775496
4 changed files with 10 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

10
knots/resource-pool.scm
View file

@ -74,7 +74,7 @@
(record-constructor &resource-pool-abort-add-resource))
(define resource-pool-abort-add-resource-error?
(record-predicate &resource-pool-abort-add-resource))
(exception-predicate &resource-pool-abort-add-resource))
(define-record-type <resource-pool>
(make-resource-pool-record name channel destroy-condition configuration)
@ -1196,7 +1196,7 @@
(record-constructor &resource-pool-timeout))
(define resource-pool-timeout-error?
(record-predicate &resource-pool-timeout))
(exception-predicate &resource-pool-timeout))
(define &resource-pool-too-many-waiters
(make-exception-type '&recource-pool-too-many-waiters
@ -1217,7 +1217,7 @@
(record-constructor &resource-pool-too-many-waiters))
(define resource-pool-too-many-waiters-error?
(record-predicate &resource-pool-too-many-waiters))
(exception-predicate &resource-pool-too-many-waiters))
(define &resource-pool-destroyed
(make-exception-type '&recource-pool-destroyed
@ -1233,7 +1233,7 @@
(record-constructor &resource-pool-destroyed))
(define resource-pool-destroyed-error?
(record-predicate &resource-pool-destroyed))
(exception-predicate &resource-pool-destroyed))
(define &resource-pool-destroy-resource
(make-exception-type '&recource-pool-destroy-resource
@ -1244,7 +1244,7 @@
(record-constructor &resource-pool-destroy-resource))
(define resource-pool-destroy-resource-exception?
(record-predicate &resource-pool-destroy-resource))
(exception-predicate &resource-pool-destroy-resource))
(define resource-pool-default-timeout-handler
(make-parameter #f))