diff options
Diffstat (limited to '')
| -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 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 |