TR7

1 files changed, 2 insertions, 3 deletions

diff --git a/lib/cuprate-impl.scm b/lib/cuprate-impl.scm
index 8265571..94f1902 100644
--- a/lib/cuprate-impl.scm
+++ b/lib/cuprate-impl.scm
@@ -276,7 +276,7 @@
      (tests . 0)
      (name . #f)
      (name-stack . ())
-     (never-print-dto . ,equal-alist-dto)
+     (never-print-dto . ,default-test-dto)
      (pretty-print . ,pretty-print)
      (never-print . ,(map (lambda (x) (cons x x))
                           '(skip-test? when-test-skipped before-test! setup-test!
@@ -433,8 +433,7 @@
 
 (define (test-exit)
   (display "==== EXITING TEST SUITE =====\n")
-  (call-with-values (lambda () (inspect-test-info values))
-    display-report)
+  (display-report (test-info-dict))
   (exit (if (zero? (test-ref/default 'failed 0))
             0
             1)))