mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 04:40:29 +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

5
libguile/ChangeLog
View file

@ -1,3 +1,8 @@
2003-07-02 Han-Wen Nienhuys <hanwen@cs.uu.nl>
* __scm.h (SCM_ASRTGO): add "else" to macro expansions with if
clauses.
2003-06-29 Marius Vollmer <mvo@zagadka.de> 2003-06-29 Marius Vollmer <mvo@zagadka.de>
* deprecated.h (SCM_OPDIRP, scm_fport, scm_option, scm_srcprops, * deprecated.h (SCM_OPDIRP, scm_fport, scm_option, scm_srcprops,

6
libguile/__scm.h
View file

@ -492,13 +492,13 @@ do { \
#else #else
#define SCM_ASSERT(_cond, _arg, _pos, _subr) \ #define SCM_ASSERT(_cond, _arg, _pos, _subr) \
if (!(_cond)) \ 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) \ #define SCM_ASSERT_TYPE(_cond, _arg, _pos, _subr, _msg) \
if (!(_cond)) \ 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) \ #define SCM_ASRTGO(_cond, _label) \
if (!(_cond)) \ if (!(_cond)) \
goto _label goto _label; else
#endif #endif
/* /*