diff options
| author | Christopher Baines <mail@cbaines.net> | 2021-01-17 20:40:06 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2021-01-17 20:40:06 +0000 |
| commit | f462547786710c72ab5dc65faf84fb9cdb5ea339 (patch) | |
| tree | 591cd8f165b616079b02adeec5c20591dbb140e7 | |
| parent | 92068ef03830c744872b6ef81fe12ffc39ca72fe (diff) | |
| download | build-coordinator-f462547786710c72ab5dc65faf84fb9cdb5ea339.tar build-coordinator-f462547786710c72ab5dc65faf84fb9cdb5ea339.tar.gz | |
Sure up handling of exceptions within Guile (backtrace)
| -rw-r--r-- | guix-build-coordinator/coordinator.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/guix-build-coordinator/coordinator.scm b/guix-build-coordinator/coordinator.scm index d04f16d..c6a71f5 100644 --- a/guix-build-coordinator/coordinator.scm +++ b/guix-build-coordinator/coordinator.scm @@ -475,12 +475,12 @@ (current-error-port) "exception when printing backtrace: ~A\n" exn) - (backtrace) (raise-exception exn)) (lambda () (backtrace) (simple-format #t "\nfinished printing backtrace\n") - (force-output))) + (force-output)) + #:unwind? #t) (raise-exception exn)) (lambda () (with-timeout (* 1000 60 10) ; 10 minutes |