diff options
| author | Brian Caine <brian.d.caine@gmail.com> | 2017-01-27 05:08:35 -0500 |
|---|---|---|
| committer | William S Fulton <wsf@fultondesigns.co.uk> | 2017-01-27 19:05:59 +0000 |
| commit | a4ec4df5c993ed939db1b878aa82e6cd24b0b117 (patch) | |
| tree | dac89e32d8ef2faf7844758bd2b959277c2dfda4 /Lib/guile/guile_scm_run.swg | |
| parent | 65689af8486184560754f3e7fe8a4a702ad43802 (diff) | |
| download | swig-a4ec4df5c993ed939db1b878aa82e6cd24b0b117.tar.gz | |
Disabled pointer conversion when the relevant macros are unavailable (for Guile 1.8)
Diffstat (limited to 'Lib/guile/guile_scm_run.swg')
| -rw-r--r-- | Lib/guile/guile_scm_run.swg | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/Lib/guile/guile_scm_run.swg b/Lib/guile/guile_scm_run.swg index 52407afa3..dfe875f8e 100644 --- a/Lib/guile/guile_scm_run.swg +++ b/Lib/guile/guile_scm_run.swg @@ -176,9 +176,11 @@ SWIG_Guile_ConvertPtr(SCM s, void **result, swig_type_info *type, int flags) if (SCM_NULLP(smob)) { *result = NULL; return SWIG_OK; +#if defined(SCM_POINTER_P) && defined(SCM_POINTER_VALUE) } else if (SCM_POINTER_P(s)) { *result = SCM_POINTER_VALUE(s); return SWIG_OK; +#endif /* if defined(SCM_POINTER_P) && defined(SCM_POINTER_VALUE) */ } else if (SCM_SMOB_PREDICATE(swig_tag, smob) || SCM_SMOB_PREDICATE(swig_collectable_tag, smob)) { /* we do not accept smobs representing destroyed pointers */ from = (swig_type_info *) SCM_CELL_WORD_2(smob); |