diff options
| author | Justus Winter <[email protected]> | 2016-12-19 14:25:52 +0000 |
|---|---|---|
| committer | Justus Winter <[email protected]> | 2016-12-19 14:42:35 +0000 |
| commit | df00745d6eed7034b218a0c482a46d975425798a (patch) | |
| tree | 3de7f6aa9d6ed52abe3194dfdcff62ba95e8b76f | |
| parent | speedo,w32: Use nsExec::ExecToLog to avoid popups (diff) | |
| download | gnupg-df00745d6eed7034b218a0c482a46d975425798a.tar.gz gnupg-df00745d6eed7034b218a0c482a46d975425798a.zip | |
gpgscm: Make exception handling more robust.
* tests/gpgscm/init.scm (throw'): Check that args is a list.
Signed-off-by: Justus Winter <[email protected]>
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 |