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

36
knots/timeout.scm
View file

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