From 046338b8494c036a5e717130d3eadce0291126fc Mon Sep 17 00:00:00 2001 From: Justus Winter Date: Tue, 26 Jul 2016 18:35:58 +0200 Subject: [PATCH] gpgscm: Do not shadow common function name in catch macro. * tests/gpgscm/init.scm (catch): Do not shadow 'exit'. Signed-off-by: Justus Winter --- tests/gpgscm/init.scm | 4 ++-- 1 file 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)))))