Improve exception reporting

2025-02-27 12:09:04 +00:00 · 2025-02-27 12:09:04 +00:00 · 21e328aebb
commit 21e328aebb
parent ed4113af51
3 changed files with 50 additions and 58 deletions
--- a/tests.scm
+++ b/tests.scm
@ -12,10 +12,11 @@
                (lambda (exn)
                  exn)
              (lambda ()
-                (with-throw-handler #t
-                  thunk
-                  (lambda _
-                    (backtrace)))
+                (with-exception-handler
+                    (lambda (exn)
+                      (backtrace)
+                      (raise-exception exn))
+                  thunk)
                #t)
              #:unwind? #t))
          #:hz 0