From 4f5af788514a44c63f07c90b86ab76f82f016d54 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Tue, 20 Oct 2020 12:31:36 +0100 Subject: Display exception details prior to backtrace To make sure some useful information makes it out, because (backtrace) can raise an exception. --- guix-build-coordinator/utils.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm index 937f985..dbc92e0 100644 --- a/guix-build-coordinator/utils.scm +++ b/guix-build-coordinator/utils.scm @@ -523,14 +523,14 @@ References: ~a~%" (unlock-mutex queue-mutex) (with-exception-handler (lambda (exn) - (simple-format (current-error-port) - "exception when handling job: ~A\n" - exn) ;; Add the job back to the queue so that it's tried again (apply process-job job-args)) (lambda () (with-exception-handler (lambda (exn) + (simple-format (current-error-port) + "exception when handling job: ~A\n" + exn) (backtrace) (raise-exception exn)) (lambda () -- cgit v1.2.3