cbaines/guile-knots
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Tweak resource pool backtraces

Browse source
This commit is contained in:
Christopher Baines 2025-02-03 12:16:07 +01:00
parent 92bb4b8d85
commit a2ab770536
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
knots/resource-pool.scm
View file

@ -459,6 +459,7 @@
(error-string (error-string
(call-with-output-string (call-with-output-string
(lambda (port) (lambda (port)
(display-backtrace stack port 3)
(simple-format (simple-format
port port
"exception in the ~A pool fiber, " name) "exception in the ~A pool fiber, " name)
@ -466,8 +467,7 @@
port port
(stack-ref stack 3) (stack-ref stack 3)
'%exception '%exception
(list exn)) (list exn))))))
(display-backtrace stack port 3)))))
(display error-string (display error-string
(current-error-port))) (current-error-port)))
(raise-exception exn)) (raise-exception exn))