diff options
| author | Christopher Baines <mail@cbaines.net> | 2021-01-16 22:29:10 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2021-01-16 22:29:10 +0000 |
| commit | d90bc412faf97493707aba4a9b0eeb44ca979289 (patch) | |
| tree | a5688d4833202709498defa0375547467f50be6e /guix-build-coordinator/agent-messaging/http | |
| parent | 3bb12aa0d7cbbbbeeaa926302a19cf4c8594bb37 (diff) | |
| download | build-coordinator-d90bc412faf97493707aba4a9b0eeb44ca979289.tar build-coordinator-d90bc412faf97493707aba4a9b0eeb44ca979289.tar.gz | |
Add missing thunk
Diffstat (limited to 'guix-build-coordinator/agent-messaging/http')
| -rw-r--r-- | guix-build-coordinator/agent-messaging/http/server.scm | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/guix-build-coordinator/agent-messaging/http/server.scm b/guix-build-coordinator/agent-messaging/http/server.scm index 9181736..8a5e990 100644 --- a/guix-build-coordinator/agent-messaging/http/server.scm +++ b/guix-build-coordinator/agent-messaging/http/server.scm @@ -438,15 +438,15 @@ port. Also, the port used can be changed by passing the --port option.\n" (render-json `((error . ,(simple-format #f "~A" exn))) #:code 500)))) - (with-exception-handler - (lambda (exn) - (catch #t - (lambda () - (backtrace)) - (lambda (key . args) - (simple-format (current-error-port) - "error: guile crashed printing backtrace\n"))) - (raise-exception exn)) - controller-thunk) + (lambda () + (with-exception-handler + (lambda (exn) + (catch #t + (lambda () + (backtrace)) + (lambda (key . args) + (simple-format (current-error-port) + "error: guile crashed printing backtrace\n"))) + (raise-exception exn)) + controller-thunk)) #:unwind? #t)) - |