mirror of
git://git.gnupg.org/gnupg.git
synced 2024-12-31 11:41:32 +01:00
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 <justus@g10code.com>
This commit is contained in:
parent
66834eb838
commit
7b4e2ea274
@ -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)
|
||||
|
Loading…
x
Reference in New Issue
Block a user