From 6f6d57b189a7073718407df263bbe3c1245f2e51 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Fri, 27 Jun 2025 00:16:41 +0200
Subject: [PATCH] Use the knots backtrace printer for tests

---
 tests.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/tests.scm b/tests.scm
index a58eff0..0cca3b4 100644
--- a/tests.scm
+++ b/tests.scm
@@ -1,6 +1,7 @@
 (define-module (tests)
   #:use-module (ice-9 exceptions)
   #:use-module (fibers)
+  #:use-module (knots)
   #:export (run-fibers-for-tests
             assert-no-heap-growth))
 
@@ -15,9 +16,10 @@
                 (simple-format #t "running ~A\n" thunk)
                 (with-exception-handler
                     (lambda (exn)
-                      (backtrace)
+                      (print-backtrace-and-exception/knots exn)
                       (raise-exception exn))
-                  thunk)
+                  (lambda ()
+                    (start-stack #t (thunk))))
                 #t)
               #:unwind? #t))
           #:hz 0