diff options
| -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))))) |