cbaines/guile-knots
1
Fork 0
Code Issues Pull requests Activity Actions

Avoid errors about returning no values from a exception handler
Some checks are pending
/ test (push) Waiting to run
Details

Browse source
This commit is contained in:
Christopher Baines 2025-11-25 09:58:58 +00:00
parent 9cce89fc01
commit 8100d36aa5
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
knots/resource-pool.scm
View file

@ -558,8 +558,9 @@
(lambda (exn) (lambda (exn)
;; This can happen if the resource pool is destroyed very ;; This can happen if the resource pool is destroyed very
;; quickly ;; quickly
(unless (resource-pool-destroyed-error? exn) (if (resource-pool-destroyed-error? exn)
(raise-exception exn))) #f
(raise-exception exn)))
(lambda () (lambda ()
(with-parallelism-limiter (with-parallelism-limiter
return-new-resource/parallelism-limiter return-new-resource/parallelism-limiter