gpgscm: Fix installation of error handler.
authorJustus Winter <justus@g10code.com>
Thu, 17 Nov 2016 14:47:26 +0000 (15:47 +0100)
committerJustus Winter <justus@g10code.com>
Tue, 22 Nov 2016 11:09:47 +0000 (12:09 +0100)
* tests/gpgscm/ffi.scm: Set '*error-hook*' again so that the
interpreter will use our function.

Signed-off-by: Justus Winter <justus@g10code.com>
tests/gpgscm/ffi.scm

index fb18538..c5f373c 100644 (file)
@@ -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)