security-and-privacy/gnupg
security-and-privacy/gnupg
1
0
Fork 0
mirror of git://git.gnupg.org/gnupg.git synced 2025-04-17 15:44:34 +02:00
Code Activity

gpgscm: Do not shadow common function name in catch macro.

Browse Source 
* tests/gpgscm/init.scm (catch): Do not shadow 'exit'.

Signed-off-by: Justus Winter <justus@g10code.com>
This commit is contained in:
Justus Winter 2016-07-26 18:35:58 +02:00
parent 66c0dab3c7
commit 046338b849
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

@ -572,8 +572,8 @@
(macro (catch form) (macro (catch form)
(let ((label (gensym))) (let ((label (gensym)))
`(call/cc (lambda (exit) `(call/cc (lambda (**exit**)
(push-handler (lambda (*error*) (exit ,(cadr form)))) (push-handler (lambda (*error*) (**exit** ,(cadr form))))
(let ((,label (begin ,@(cddr form)))) (let ((,label (begin ,@(cddr form))))
(pop-handler) (pop-handler)
,label))))) ,label)))))