From 09ca6cfb6bb24b94684f67daee5b1a8eae4aa3cb Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Thu, 26 Jun 2025 21:27:32 +0200
Subject: [PATCH] Fix resource-pool-destroy-resource-exception

Raising the exception is more consistent, and avoids returning the
resource.
---
 knots/resource-pool.scm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/knots/resource-pool.scm b/knots/resource-pool.scm
index 71c378c..e55bdac 100644
--- a/knots/resource-pool.scm
+++ b/knots/resource-pool.scm
@@ -1351,8 +1351,7 @@ available.  Return the resource once PROC has returned."
                               'destroy
                               'return)
                           resource))
-                   (unless (resource-pool-destroy-resource-exception? exn)
-                     (raise-exception exn)))
+                   (raise-exception exn))
                (lambda ()
                  (with-exception-handler
                      (lambda (exn)