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))