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)) (thread-pool-resource-pool pool))
'default-checkout-timeout))) 'default-checkout-timeout)))
(define &thread-pool-timeout (define &thread-pool-timeout-error
(make-exception-type '&thread-pool-timeout (make-exception-type '&thread-pool-timeout-error
&error &error
'(pool))) '(pool)))
(define make-thread-pool-timeout-error (define make-thread-pool-timeout-error
(record-constructor &thread-pool-timeout)) (record-constructor &thread-pool-timeout-error))
(define thread-pool-timeout-error-pool (define thread-pool-timeout-error-pool
(exception-accessor (exception-accessor
&thread-pool-timeout &thread-pool-timeout-error
(record-accessor &thread-pool-timeout 'pool))) (record-accessor &thread-pool-timeout-error 'pool)))
(define thread-pool-timeout-error? (define thread-pool-timeout-error?
(record-predicate &thread-pool-timeout)) (record-predicate &thread-pool-timeout-error))
(define* (make-fixed-size-thread-pool size (define* (make-fixed-size-thread-pool size
#:key #:key

36
knots/timeout.scm
View file

@ -34,13 +34,13 @@
wait-until-port-readable-operation wait-until-port-readable-operation
wait-until-port-writable-operation wait-until-port-writable-operation
&port-timeout &port-timeout-error
port-timeout-error? port-timeout-error?
&port-read-timeout &port-read-timeout-error
port-read-timeout-error port-read-timeout-error?
&port-write-timeout &port-write-timeout-error
port-write-timeout-error? port-write-timeout-error?
with-port-timeouts)) with-port-timeouts))
@ -76,38 +76,38 @@
(vals (vals
(apply values vals))))) (apply values vals)))))
(define &port-timeout (define &port-timeout-error
(make-exception-type '&port-timeout (make-exception-type '&port-timeout-error
&external-error &external-error
'(thunk port))) '(thunk port)))
(define make-port-timeout-error (define make-port-timeout-error
(record-constructor &port-timeout)) (record-constructor &port-timeout-error))
(define port-timeout-error? (define port-timeout-error?
(record-predicate &port-timeout)) (record-predicate &port-timeout-error))
(define &port-read-timeout (define &port-read-timeout-error
(make-exception-type '&port-read-timeout (make-exception-type '&port-read-timeout-error
&port-timeout &port-timeout-error
'())) '()))
(define make-port-read-timeout-error (define make-port-read-timeout-error
(record-constructor &port-read-timeout)) (record-constructor &port-read-timeout-error))
(define port-read-timeout-error? (define port-read-timeout-error?
(record-predicate &port-read-timeout)) (record-predicate &port-read-timeout-error))
(define &port-write-timeout (define &port-write-timeout-error
(make-exception-type '&port-write-timeout (make-exception-type '&port-write-timeout-error
&port-timeout &port-timeout-error
'())) '()))
(define make-port-write-timeout-error (define make-port-write-timeout-error
(record-constructor &port-write-timeout)) (record-constructor &port-write-timeout-error))
(define port-write-timeout-error? (define port-write-timeout-error?
(record-predicate &port-write-timeout)) (record-predicate &port-write-timeout-error))
(define (readable? port) (define (readable? port)
"Test if PORT is writable." "Test if PORT is writable."