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

2
knots/thread-pool.scm
View file

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

6
knots/timeout.scm
View file

@ -85,7 +85,7 @@
(record-constructor &port-timeout-error)) (record-constructor &port-timeout-error))
(define port-timeout-error? (define port-timeout-error?
(record-predicate &port-timeout-error)) (exception-predicate &port-timeout-error))
(define &port-read-timeout-error (define &port-read-timeout-error
(make-exception-type '&port-read-timeout-error (make-exception-type '&port-read-timeout-error
@ -96,7 +96,7 @@
(record-constructor &port-read-timeout-error)) (record-constructor &port-read-timeout-error))
(define port-read-timeout-error? (define port-read-timeout-error?
(record-predicate &port-read-timeout-error)) (exception-predicate &port-read-timeout-error))
(define &port-write-timeout-error (define &port-write-timeout-error
(make-exception-type '&port-write-timeout-error (make-exception-type '&port-write-timeout-error
@ -107,7 +107,7 @@
(record-constructor &port-write-timeout-error)) (record-constructor &port-write-timeout-error))
(define port-write-timeout-error? (define port-write-timeout-error?
(record-predicate &port-write-timeout-error)) (exception-predicate &port-write-timeout-error))
(define (readable? port) (define (readable? port)
"Test if PORT is writable." "Test if PORT is writable."

2
knots/web-server.scm
View file

@ -130,7 +130,7 @@ closes PORT, unless KEEP-ALIVE? is true."
(record-constructor &request-body-ended-prematurely)) (record-constructor &request-body-ended-prematurely))
(define request-body-ended-prematurely-error? (define request-body-ended-prematurely-error?
(record-predicate &request-body-ended-prematurely)) (exception-predicate &request-body-ended-prematurely))
(define (request-body-port/knots r) (define (request-body-port/knots r)
(cond (cond