From df00745d6eed7034b218a0c482a46d975425798a Mon Sep 17 00:00:00 2001 From: Justus Winter Date: Mon, 19 Dec 2016 15:25:52 +0100 Subject: gpgscm: Make exception handling more robust. * tests/gpgscm/init.scm (throw'): Check that args is a list. Signed-off-by: Justus Winter --- 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 04f088ca2..106afd554 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 -- cgit v1.2.3