Tweak resource pool backtraces

2025-02-03 12:16:07 +01:00 · 2025-02-03 12:16:07 +01:00 · a2ab770536
commit a2ab770536
parent 92bb4b8d85
1 changed files with 2 additions and 2 deletions
--- 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))