diff options
| author | Justus Winter <[email protected]> | 2016-11-17 14:47:26 +0000 |
|---|---|---|
| committer | Justus Winter <[email protected]> | 2016-11-22 11:09:47 +0000 |
| commit | 7b4e2ea274ace22245264f1759279390d0300a62 (patch) | |
| tree | 304dde51357cc14b26be0f050c827abf0edcec4f | |
| parent | gpgscm: Use a static pool of cells for small integers. (diff) | |
| download | gnupg-7b4e2ea274ace22245264f1759279390d0300a62.tar.gz gnupg-7b4e2ea274ace22245264f1759279390d0300a62.zip | |
gpgscm: Fix installation of error handler.
* tests/gpgscm/ffi.scm: Set '*error-hook*' again so that the
interpreter will use our function.
Signed-off-by: Justus Winter <[email protected]>
| -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) |