mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 23:50:19 +02:00
Code Activity

(SCM_ASRTGO): add "else" to macro expansions with if

Browse source 
clauses.
This commit is contained in:
Han-Wen Nienhuys 2003-07-02 16:11:08 +00:00
parent 983e697d52
commit 4c27f8d23b
2 changed files with 8 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/__scm.h
View file

@ -492,13 +492,13 @@ do { \
#else
#define SCM_ASSERT(_cond, _arg, _pos, _subr) \
if (!(_cond)) \
scm_wrong_type_arg (_subr, _pos, _arg)
scm_wrong_type_arg (_subr, _pos, _arg); else
#define SCM_ASSERT_TYPE(_cond, _arg, _pos, _subr, _msg) \
if (!(_cond)) \
scm_wrong_type_arg_msg(_subr, _pos, _arg, _msg)
scm_wrong_type_arg_msg(_subr, _pos, _arg, _msg); else
#define SCM_ASRTGO(_cond, _label) \
if (!(_cond)) \
goto _label
goto _label; else
#endif
/*