diff options
author | Greg J. Badros <gjb@cs.washington.edu> | 2000-01-05 18:19:54 +0000 |
---|---|---|
committer | Greg J. Badros <gjb@cs.washington.edu> | 2000-01-05 18:19:54 +0000 |
commit | 5a237c9d5d7cbe592b0ba7f133dadc0cf18bb4e3 (patch) | |
tree | 385f47192c649cbdba894b0b85d71e0659c9aa75 | |
parent | 53fc463692e40300bec57f8e660a9f0e1f19d8f4 (diff) | |
download | guile-5a237c9d5d7cbe592b0ba7f133dadc0cf18bb4e3.tar.gz |
* snarf.h (SCM_ASSERT): Give new definition of SCM_ASSERT when in
snarfing mode to output a lexically-identifiable sequence that the
guile-snarf.awk script uses to verify argument/position matching.
-rw-r--r-- | libguile/snarf.h | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/libguile/snarf.h b/libguile/snarf.h index ffbc18118..205c4e117 100644 --- a/libguile/snarf.h +++ b/libguile/snarf.h @@ -80,6 +80,9 @@ SCM FNAME ARGLIST #if defined(__cplusplus) || defined(GUILE_CPLUSPLUS_SNARF) /* for C++ snarfing */ +#undef SCM_ASSERT +#define SCM_ASSERT(_cond, _arg, _pos, _subr) *&*&*&*SCM_ARG_BETTER_BE_IN_POSITION(_arg,_pos,__LINE__) + #define GUILE_PROC(FNAME, PRIMNAME, REQ, OPT, VAR, ARGLIST, DOCSTRING) \ %%% scm_make_gsubr (s_ ## FNAME, REQ, OPT, VAR, (SCM (*)(...)) FNAME); \ $$$P PRIMNAME #ARGLIST | REQ | OPT | VAR | __FILE__:__LINE__ | @@@ DOCSTRING @!!! @@ -107,6 +110,9 @@ $$$R STR | REQ | OPT | VAR | __FILE__:__LINE__ | @@@ CFN @!!! #else /* for ANSI C snarfing, not C++ */ +#undef SCM_ASSERT +#define SCM_ASSERT(_cond, _arg, _pos, _subr) *&*&*&*SCM_ARG_BETTER_BE_IN_POSITION(_arg,_pos,__LINE__) + #define GUILE_PROC(FNAME, PRIMNAME, REQ, OPT, VAR, ARGLIST, DOCSTRING) \ %%% scm_make_gsubr (s_ ## FNAME, REQ, OPT, VAR, (SCM (*)()) FNAME); \ $$$P PRIMNAME #ARGLIST | REQ | OPT | VAR | __FILE__:__LINE__ | @@@ DOCSTRING @!!! |