diff options
| author | William S Fulton <wsf@fultondesigns.co.uk> | 2022-09-16 19:13:02 +0100 |
|---|---|---|
| committer | William S Fulton <wsf@fultondesigns.co.uk> | 2022-09-16 19:13:02 +0100 |
| commit | f0af17b3244d98109a62e3fda5ab6e5fc458283d (patch) | |
| tree | 05cd8c6eacc08ee8b9f2e00f03be8fc4934f5443 /Lib | |
| parent | c5610fd4b3ff948a0220368f92dd842ef877b3f0 (diff) | |
| download | swig-f0af17b3244d98109a62e3fda5ab6e5fc458283d.tar.gz | |
Correct error handling in Guile pointer conversion
Diffstat (limited to 'Lib')
| -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 44e2db225..689a1060f 100644 --- a/Lib/guile/guile_scm_run.swg +++ b/Lib/guile/guile_scm_run.swg @@ -220,6 +220,8 @@ SWIG_Guile_ConvertPtr(SCM s, void **result, swig_type_info *type, int flags) *result = SWIG_TypeCast(cast, (void *) SCM_CELL_WORD_1(smob), &newmemory); assert(!newmemory); /* newmemory handling not yet implemented */ ret = SWIG_OK; + } else { + return SWIG_ERROR; } } else { *result = (void *) SCM_CELL_WORD_1(smob); |