From 8100d36aa5bebb6c6fab114ae5595ace2be43b2e Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Tue, 25 Nov 2025 09:58:58 +0000
Subject: [PATCH] Avoid errors about returning no values from a exception
 handler

---
 knots/resource-pool.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/knots/resource-pool.scm b/knots/resource-pool.scm
index 739ec4f..f00e05b 100644
--- a/knots/resource-pool.scm
+++ b/knots/resource-pool.scm
@@ -558,8 +558,9 @@
            (lambda (exn)
              ;; This can happen if the resource pool is destroyed very
              ;; quickly
-             (unless (resource-pool-destroyed-error? exn)
-               (raise-exception exn)))
+             (if (resource-pool-destroyed-error? exn)
+                 #f
+                 (raise-exception exn)))
          (lambda ()
            (with-parallelism-limiter
             return-new-resource/parallelism-limiter