diff options
| -rw-r--r-- | tests/gpgscm/ffi.scm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/tests/gpgscm/ffi.scm b/tests/gpgscm/ffi.scm index fb1853857..c5f373c17 100644 --- a/tests/gpgscm/ffi.scm +++ b/tests/gpgscm/ffi.scm @@ -61,6 +61,7 @@ (_exit (cadr x))) (else (apply error x)))) +(set! *error-hook* throw) ;; Terminate the process returning STATUS to the parent. (define (exit status) |