[git] GnuPG - branch, master, updated. gnupg-2.1.21-89-gbce02a8

[by Justus Winter]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "The GNU Privacy Guard".

The branch, master has been updated
       via  bce02a8b0f0e51775a4ee5536ccf35efc1f15ca6 (commit)
      from  957f8ebc89caadbf84320b60aeb18a100c314855 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit bce02a8b0f0e51775a4ee5536ccf35efc1f15ca6
Author: Justus Winter <justus at g10code.com>
Date:   Tue Jul 11 16:07:39 2017 +0200

    gpgscm: Make it impossible to catch '*interpreter-exit*'.
    
    * 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 at g10code.com>

diff --git a/tests/gpgscm/init.scm b/tests/gpgscm/init.scm
index b78a59e..66bec0f 100644
--- a/tests/gpgscm/init.scm
+++ b/tests/gpgscm/init.scm
@@ -605,12 +605,12 @@
 ;; This is used by the vm to throw exceptions.
 (define (throw' message args history)
   (cond
-   ((more-handlers?)
-    ((pop-handler) message args history))
    ((and args (list? args) (= 2 (length args))
 	 (equal? *interpreter-exit* (car args)))
     (*run-atexit-handlers*)
     (quit (cadr args)))
+   ((more-handlers?)
+    ((pop-handler) message args history))
    (else
     (display message)
     (when (and args (not (null? args)))

-----------------------------------------------------------------------

Summary of changes:
 tests/gpgscm/init.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)


hooks/post-receive
-- 
The GNU Privacy Guard
http://git.gnupg.org