security-and-privacy/gnupg
security-and-privacy/gnupg
1
0
Fork 0
mirror of git://git.gnupg.org/gnupg.git synced 2025-01-08 12:44:23 +01:00
Code Activity

gpgscm: Make exception handling more robust.

Browse Source 
* tests/gpgscm/init.scm (throw'): Check that args is a list.

Signed-off-by: Justus Winter <justus@g10code.com>
This commit is contained in:
Justus Winter 2016-12-19 15:25:52 +01:00
parent 026bbf0d5e
commit df00745d6e
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
tests/gpgscm/init.scm
View File

@ -597,7 +597,8 @@
(cond (cond
((more-handlers?) ((more-handlers?)
((pop-handler) message args history)) ((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*) (*run-atexit-handlers*)
(quit (cadr args))) (quit (cadr args)))
(else (else