From 85e7fbcb73cdb23572ed636de8f254cb9586f024 Mon Sep 17 00:00:00 2001
From: Justus Winter <justus@g10code.com>
Date: Thu, 7 Jan 2016 16:53:06 +0100
Subject: [PATCH] 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>
---
 tests/gpgscm/init.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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