492 |
#else |
#else |
493 |
#define SCM_ASSERT(_cond, _arg, _pos, _subr) \ |
#define SCM_ASSERT(_cond, _arg, _pos, _subr) \ |
494 |
if (!(_cond)) \ |
if (!(_cond)) \ |
495 |
scm_wrong_type_arg (_subr, _pos, _arg) |
scm_wrong_type_arg (_subr, _pos, _arg); else |
496 |
#define SCM_ASSERT_TYPE(_cond, _arg, _pos, _subr, _msg) \ |
#define SCM_ASSERT_TYPE(_cond, _arg, _pos, _subr, _msg) \ |
497 |
if (!(_cond)) \ |
if (!(_cond)) \ |
498 |
scm_wrong_type_arg_msg(_subr, _pos, _arg, _msg) |
scm_wrong_type_arg_msg(_subr, _pos, _arg, _msg); else |
499 |
#define SCM_ASRTGO(_cond, _label) \ |
#define SCM_ASRTGO(_cond, _label) \ |
500 |
if (!(_cond)) \ |
if (!(_cond)) \ |
501 |
goto _label |
goto _label; else |
502 |
#endif |
#endif |
503 |
|
|
504 |
/* |
/* |