diff options
| author | Matthias Köppe <mkoeppe@mail.math.uni-magdeburg.de> | 2003-11-23 20:29:07 +0000 |
|---|---|---|
| committer | Matthias Köppe <mkoeppe@mail.math.uni-magdeburg.de> | 2003-11-23 20:29:07 +0000 |
| commit | 894d9cc4e96b0e61a144d1065a88c82ad729f919 (patch) | |
| tree | 8b224fb2431909b928ef8657d1346ff496f84a02 /Lib/guile/guile_scm_run.swg | |
| parent | a0c9c690e4757bc6ded8c61837eac7e199e1c1c1 (diff) | |
| download | swig-894d9cc4e96b0e61a144d1065a88c82ad729f919.tar.gz | |
Add a SWIG_contract_assert macro.
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@5379 626c5289-ae23-0410-ae9c-e8d60b6d4f22
Diffstat (limited to 'Lib/guile/guile_scm_run.swg')
| -rw-r--r-- | Lib/guile/guile_scm_run.swg | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/Lib/guile/guile_scm_run.swg b/Lib/guile/guile_scm_run.swg index da9780ee5..0464d497c 100644 --- a/Lib/guile/guile_scm_run.swg +++ b/Lib/guile/guile_scm_run.swg @@ -36,7 +36,12 @@ typedef struct swig_guile_clientdata { SWIG_Guile_NewPointerObj((void*)ptr, type, owner) #define SWIG_PropagateClientData(type) \ SWIG_Guile_PropagateClientData(type) - +#define SWIG_contract_assert(expr, msg) \ + if (!(expr)) \ + scm_error(scm_str2symbol("swig-contract-assertion-failed"), \ + (char *) FUNC_NAME, (char *) msg, \ + SCM_EOL, SCM_BOOL_F); else + #ifdef SWIG_NOINCLUDE /* Interface helper function */ |