security-and-privacy/gnupg
security-and-privacy/gnupg
1
0
Fork 0
mirror of git://git.gnupg.org/gnupg.git synced 2025-05-24 16:43:28 +02:00
Code Activity

gpgscm: Make it impossible to catch '*interpreter-exit*'.

Browse Source 
* tests/gpgscm/init.scm (throw'): Make it impossible to catch
'*interpreter-exit*'.  This fixes 'exit' (and with it 'fail') inside
'catch' statements.

Signed-off-by: Justus Winter <justus@g10code.com>
This commit is contained in:
Justus Winter 2017-07-11 16:07:39 +02:00
parent 957f8ebc89
commit bce02a8b0f
No known key found for this signature in database
GPG Key ID: DD1A52F9DA8C9020
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/gpgscm/init.scm
View File

@ -605,12 +605,12 @@
;; This is used by the vm to throw exceptions. ;; This is used by the vm to throw exceptions.
(define (throw' message args history) (define (throw' message args history)
(cond (cond
((more-handlers?)
((pop-handler) message args history))
((and args (list? args) (= 2 (length args)) ((and args (list? args) (= 2 (length args))
(equal? *interpreter-exit* (car args))) (equal? *interpreter-exit* (car args)))
(*run-atexit-handlers*) (*run-atexit-handlers*)
(quit (cadr args))) (quit (cadr args)))
((more-handlers?)
((pop-handler) message args history))
(else (else
(display message) (display message)
(when (and args (not (null? args))) (when (and args (not (null? args)))