security-and-privacy/gnupg
security-and-privacy
/
gnupg
mirror of git://git.gnupg.org/gnupg.git
1
0
Fork 0
Code Activity

tests/gpgscm: Fix error hook. 

* 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
Show Stats 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