Fix record-predicate that should be exception-predicate

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

View file

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