diff options
Diffstat (limited to 'testrunner.scm')
-rwxr-xr-x | testrunner.scm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/testrunner.scm b/testrunner.scm index 8abea1e2..a757fdee 100755 --- a/testrunner.scm +++ b/testrunner.scm @@ -183,7 +183,12 @@ exec "$GUILE" --debug --no-auto-compile -e main -s "$0" "$@" (lambda args (enqueue! (format-test-runner-crash-message args) error-queue) - (values #f '())))) + (values #f '())) + (lambda _ + ;; TODO make backtrace configurable + ;; TODO backtrace should be placed AFTER the error + (enqueue! (with-output-to-string (lambda () (backtrace))) error-queue) + ))) (catch 'wrong-type-arg (lambda () (typecheck module-names (list-of (list-of symbol?)))) (lambda (_ __ fmt args ___) |