security-and-privacy/gnupg
security-and-privacy/gnupg
1
0
Fork 0
mirror of git://git.gnupg.org/gnupg.git synced 2025-01-30 16:17:02 +01: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 707d4d95b1
commit 85e7fbcb73
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) (pop-handler)
,label))))) ,label)))))
(define *error-hook* throw) (define (*error-hook* . args)
(throw args))
;;;;; Definition of MAKE-ENVIRONMENT, to be used with two-argument EVAL ;;;;; Definition of MAKE-ENVIRONMENT, to be used with two-argument EVAL