security-and-privacy/gnupg
security-and-privacy/gnupg
1
0
Fork 0
mirror of git://git.gnupg.org/gnupg.git synced 2025-07-02 22:46:30 +02:00
Code Activity

tests/gpgscm: Fix error hook.

Browse source 
* tests/gpgscm/init.scm (*error-hook*): Fix error hook so that the
whole error message is displayed.

Signed-off-by: Justus Winter <justus@g10code.com>
This commit is contained in:
Justus Winter 2016-01-07 16:53:06 +01:00
parent 133f25703a
commit e02c1ccae1
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
tests/gpgscm/init.scm
View file

@ -577,7 +577,8 @@
(pop-handler)
,label)))))
(define *error-hook* throw)
(define (*error-hook* . args)
(throw args))
;;;;; Definition of MAKE-ENVIRONMENT, to be used with two-argument EVAL