/[guile]/guile/guile-core/libguile/__scm.h
ViewVC logotype

Diff of /guile/guile-core/libguile/__scm.h

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.101 by hanwen, Wed Jul 2 16:11:08 2003 UTC revision 1.102 by hanwen, Wed Jul 2 23:04:54 2003 UTC
# Line 491  do { \ Line 491  do { \
491  #define SCM_ASRTGO(_cond, _label)  #define SCM_ASRTGO(_cond, _label)
492  #else  #else
493  #define SCM_ASSERT(_cond, _arg, _pos, _subr) \  #define SCM_ASSERT(_cond, _arg, _pos, _subr) \
494          if (!(_cond)) \          do { if (!(_cond)) \
495            scm_wrong_type_arg (_subr, _pos, _arg); else            scm_wrong_type_arg (_subr, _pos, _arg); } while (0)
496  #define SCM_ASSERT_TYPE(_cond, _arg, _pos, _subr, _msg) \  #define SCM_ASSERT_TYPE(_cond, _arg, _pos, _subr, _msg) \
497          if (!(_cond)) \          do { if (!(_cond)) \
498            scm_wrong_type_arg_msg(_subr, _pos, _arg, _msg); else            scm_wrong_type_arg_msg(_subr, _pos, _arg, _msg);  } while (0)
499  #define SCM_ASRTGO(_cond, _label) \  #define SCM_ASRTGO(_cond, _label) \
500          if (!(_cond)) \          do {  if (!(_cond)) \
501            goto _label; else            goto _label; } while (0)
502  #endif  #endif
503    
504  /*  /*

Legend:
Removed from v.1.101  
changed lines
  Added in v.1.102

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26