diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-10-20 12:31:36 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-10-20 12:31:36 +0100 |
| commit | 4f5af788514a44c63f07c90b86ab76f82f016d54 (patch) | |
| tree | 75b6f6edf586bea762ec95d3d37700772c7b916c | |
| parent | 86e446c027b15e95bb4cadb6aeea09e90814c15e (diff) | |
| download | build-coordinator-4f5af788514a44c63f07c90b86ab76f82f016d54.tar build-coordinator-4f5af788514a44c63f07c90b86ab76f82f016d54.tar.gz | |
Display exception details prior to backtrace
To make sure some useful information makes it out, because (backtrace) can
raise an exception.
| -rw-r--r-- | guix-build-coordinator/utils.scm | 6 |
1 files 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 () |