diff options
| author | Justus Winter <[email protected]> | 2016-07-26 16:35:58 +0000 |
|---|---|---|
| committer | Justus Winter <[email protected]> | 2016-07-26 16:37:10 +0000 |
| commit | 046338b8494c036a5e717130d3eadce0291126fc (patch) | |
| tree | 2b550fb087defe4747070c132f62af61aa179fc2 | |
| parent | tests: Fix distcheck. (diff) | |
| download | gnupg-046338b8494c036a5e717130d3eadce0291126fc.tar.gz gnupg-046338b8494c036a5e717130d3eadce0291126fc.zip | |
gpgscm: Do not shadow common function name in catch macro.
* tests/gpgscm/init.scm (catch): Do not shadow 'exit'.
Signed-off-by: Justus Winter <[email protected]>
Diffstat (limited to '')
| -rw-r--r-- | tests/gpgscm/init.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/gpgscm/init.scm b/tests/gpgscm/init.scm index 0889366af..b32172b12 100644 --- a/tests/gpgscm/init.scm +++ b/tests/gpgscm/init.scm @@ -572,8 +572,8 @@ (macro (catch form) (let ((label (gensym))) - `(call/cc (lambda (exit) - (push-handler (lambda (*error*) (exit ,(cadr form)))) + `(call/cc (lambda (**exit**) + (push-handler (lambda (*error*) (**exit** ,(cadr form)))) (let ((,label (begin ,@(cddr form)))) (pop-handler) ,label))))) |