/[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.100 by dirk, Wed Jun 4 05:28:33 2003 UTC revision 1.101 by hanwen, Wed Jul 2 16:11:08 2003 UTC
# Line 492  do { \ Line 492  do { \
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  /*  /*

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

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