tests/gpgscm: Fix error hook.
authorJustus Winter <justus@g10code.com>
Thu, 7 Jan 2016 15:53:06 +0000 (16:53 +0100)
committerJustus Winter <justus@g10code.com>
Fri, 17 Jun 2016 09:38:00 +0000 (11:38 +0200)
* 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

index 57ae079..3c0ee7d 100644 (file)
                     (pop-handler)
                     ,label)))))
 
-(define *error-hook* throw)
+(define (*error-hook* . args)
+  (throw args))
 
 
 ;;;;; Definition of MAKE-ENVIRONMENT, to be used with two-argument EVAL