diff options
| author | Justus Winter <[email protected]> | 2016-01-07 15:53:06 +0000 |
|---|---|---|
| committer | Justus Winter <[email protected]> | 2016-06-17 09:38:00 +0000 |
| commit | e02c1ccae13e4eb55afef8de4f29022c709404eb (patch) | |
| tree | aaa7adc7efc3f796ea3325a83a03a175922b8d1c | |
| parent | tests/gpgscm: Handle unhandled enumeration values. (diff) | |
| download | gnupg-e02c1ccae13e4eb55afef8de4f29022c709404eb.tar.gz gnupg-e02c1ccae13e4eb55afef8de4f29022c709404eb.zip | |
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 <[email protected]>
Diffstat (limited to '')
| -rw-r--r-- | tests/gpgscm/init.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/gpgscm/init.scm b/tests/gpgscm/init.scm index 57ae07986..3c0ee7d91 100644 --- a/tests/gpgscm/init.scm +++ b/tests/gpgscm/init.scm @@ -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 |