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

6
knots/timeout.scm
View file

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