diff options
| author | Justus Winter <[email protected]> | 2016-01-07 15:53:06 +0000 |
|---|---|---|
| committer | Justus Winter <[email protected]> | 2016-04-21 13:36:34 +0000 |
| commit | 85e7fbcb73cdb23572ed636de8f254cb9586f024 (patch) | |
| tree | 8eb35d2393ad8a887009e06375962968d66a526b | |
| parent | tests/gpgscm: Handle unhandled enumeration values. (diff) | |
| download | gnupg-85e7fbcb73cdb23572ed636de8f254cb9586f024.tar.gz gnupg-85e7fbcb73cdb23572ed636de8f254cb9586f024.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]>
| -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 |