From ab18f67a46daa2dd0e7b1cd0b73efc7fa1bc5bf8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Thu, 3 Mar 2022 21:15:16 +0100
Subject: Explicitly format unbound-variable errors.

---
 tests/run-tests.scm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'tests/run-tests.scm')

diff --git a/tests/run-tests.scm b/tests/run-tests.scm
index 9c12fc15..5aecdebb 100755
--- a/tests/run-tests.scm
+++ b/tests/run-tests.scm
@@ -196,9 +196,15 @@
                                  (cadr args)
                                  (caddr args)
                                  #f))
+                 ((unbound-variable)
+                  (let ((proc (car args))
+                        (fmt (cadr args))
+                        (fmt-args (caddr args)))
+                    (format (current-error-port)
+                            "[~a] ~?~%" proc fmt fmt-args)))
                  (else
                   (format (current-error-port)
-                          "Test unexpectedly crashed: ~a~%" args))) )))))))
+                          "Test unexpectedly crashed [~a]: ~s~%" err args))) )))))))
 
 
 (call-with-values run-with-coverage
-- 
cgit v1.2.3