From 7b4e2ea274ace22245264f1759279390d0300a62 Mon Sep 17 00:00:00 2001 From: Justus Winter Date: Thu, 17 Nov 2016 15:47:26 +0100 Subject: 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 --- tests/gpgscm/ffi.scm | 1 + 1 file changed, 1 insertion(+) 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) -- cgit v1.2.3