From a2ab77053619e9edb551d673970b8b7bd248cd76 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Mon, 3 Feb 2025 12:16:07 +0100
Subject: [PATCH] Tweak resource pool backtraces

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

diff --git a/knots/resource-pool.scm b/knots/resource-pool.scm
index 094eadb..d08749b 100644
--- a/knots/resource-pool.scm
+++ b/knots/resource-pool.scm
@@ -459,6 +459,7 @@
                       (error-string
                        (call-with-output-string
                          (lambda (port)
+                           (display-backtrace stack port 3)
                            (simple-format
                             port
                             "exception in the ~A pool fiber, " name)
@@ -466,8 +467,7 @@
                             port
                             (stack-ref stack 3)
                             '%exception
-                            (list exn))
-                           (display-backtrace stack port 3)))))
+                            (list exn))))))
                  (display error-string
                           (current-error-port)))
                (raise-exception exn))