summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGreg J. Badros <gjb@cs.washington.edu>2000-01-05 18:19:54 +0000
committerGreg J. Badros <gjb@cs.washington.edu>2000-01-05 18:19:54 +0000
commit5a237c9d5d7cbe592b0ba7f133dadc0cf18bb4e3 (patch)
tree385f47192c649cbdba894b0b85d71e0659c9aa75
parent53fc463692e40300bec57f8e660a9f0e1f19d8f4 (diff)
downloadguile-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.h6
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 @!!!