[Pkg-gnupg-commit] [gnupg2] 150/180: gpgscm: Make exception handling more robust.

[Daniel Kahn Gillmor]

This is an automated email from the git hooks/post-receive script.

dkg pushed a commit to branch master
in repository gnupg2.

commit df00745d6eed7034b218a0c482a46d975425798a
Author: Justus Winter <justus at g10code.com>
Date:   Mon Dec 19 15:25:52 2016 +0100

    gpgscm: Make exception handling more robust.
    
    * tests/gpgscm/init.scm (throw'): Check that args is a list.
    
    Signed-off-by: Justus Winter <justus at 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 04f088c..106afd5 100644
--- a/tests/gpgscm/init.scm
+++ b/tests/gpgscm/init.scm
@@ -597,7 +597,8 @@
   (cond
    ((more-handlers?)
     ((pop-handler) message args history))
-   ((and args (= 2 (length args)) (equal? *interpreter-exit* (car args)))
+   ((and args (list? args) (= 2 (length args))
+	 (equal? *interpreter-exit* (car args)))
     (*run-atexit-handlers*)
     (quit (cadr args)))
    (else

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-gnupg/gnupg2.git