mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

remove SCM_ASRTGO

Browse source 
* libguile/__scm.h (SCM_ASRTGO): Remove unused macro.
This commit is contained in:
Andy Wingo 2011-05-15 13:29:45 +02:00
parent 6dae2c589b
commit cb5b7677a2
1 changed files with 0 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/__scm.h
View file

@ -406,7 +406,6 @@ typedef long SCM_STACKITEM;
#ifdef SCM_RECKLESS
#define SCM_ASSERT(_cond, _arg, _pos, _subr)
#define SCM_ASSERT_TYPE(_cond, _arg, _pos, _subr, _msg)
#define SCM_ASRTGO(_cond, _label)
#else
#define SCM_ASSERT(_cond, _arg, _pos, _subr) \
do { if (SCM_UNLIKELY (!(_cond))) \
@ -414,9 +413,6 @@ typedef long SCM_STACKITEM;
#define SCM_ASSERT_TYPE(_cond, _arg, _pos, _subr, _msg) \
do { if (SCM_UNLIKELY (!(_cond))) \
scm_wrong_type_arg_msg(_subr, _pos, _arg, _msg); } while (0)
#define SCM_ASRTGO(_cond, _label) \
do { if (SCM_UNLIKELY (!(_cond))) \
goto _label; } while (0)
#endif
/*