diff options
Diffstat (limited to 'guix-qa-frontpage/utils.scm')
| -rw-r--r-- | guix-qa-frontpage/utils.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/guix-qa-frontpage/utils.scm b/guix-qa-frontpage/utils.scm index 63b741c..71b0131 100644 --- a/guix-qa-frontpage/utils.scm +++ b/guix-qa-frontpage/utils.scm @@ -38,14 +38,14 @@ (lambda (exn) (put-message channel `(exception ,exn))) (lambda () - (with-throw-handler #t + (with-exception-handler + (lambda (exn) + (print-backtrace-and-exception/knots exn) + (raise-exception exn)) (lambda () (call-with-values thunk (lambda values - (put-message channel `(values ,@values))))) - (lambda args - (display (backtrace) (current-error-port)) - (newline (current-error-port))))) + (put-message channel `(values ,@values))))))) #:unwind? #t))))) (match (get-message channel) (('values . results) |