From ec2f2489a2394a9f426931cee2b7a4856349603e Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Tue, 1 Jul 2025 23:13:31 +0100
Subject: [PATCH] Fix resource pool bug

And remove unnecessary named let.
---
 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 b27f329..6b28a27 100644
--- a/knots/resource-pool.scm
+++ b/knots/resource-pool.scm
@@ -1317,8 +1317,9 @@ available.  Return the resource once PROC has returned."
                                            start-time)
                                      'timeout)
                                  response))
-                           'timeout)))))
-             (let loop ((reply (make-channel)))
+                           'timeout))
+                     'timeout)))
+             (let ((reply (make-channel)))
                (put-message channel
                             (list 'checkout
                                   reply