Fix resource-pool-destroy-resource-exception

Raising the exception is more consistent, and avoids returning the
resource.
This commit is contained in:
Christopher Baines 2025-06-26 21:27:32 +02:00
parent ab5411da42
commit 09ca6cfb6b

View file

@ -1351,8 +1351,7 @@ available. Return the resource once PROC has returned."
'destroy 'destroy
'return) 'return)
resource)) resource))
(unless (resource-pool-destroy-resource-exception? exn) (raise-exception exn))
(raise-exception exn)))
(lambda () (lambda ()
(with-exception-handler (with-exception-handler
(lambda (exn) (lambda (exn)