summaryrefslogtreecommitdiff
path: root/Lib/guile/guile_scm_run.swg
diff options
context:
space:
mode:
authorWilliam S Fulton <wsf@fultondesigns.co.uk>2018-12-30 09:26:33 +0000
committerWilliam S Fulton <wsf@fultondesigns.co.uk>2018-12-30 09:26:33 +0000
commiteb151e43be28a707e57ff3cec4cfd8408baa64b5 (patch)
tree4df864049012daa5c8d025e191446f391dccfac2 /Lib/guile/guile_scm_run.swg
parent12eb0f81ae77dd6ee5ee50a096f8ce0001189248 (diff)
downloadswig-eb151e43be28a707e57ff3cec4cfd8408baa64b5.tar.gz
Fix overloading for non-pointers and NULL - Guile
Diffstat (limited to 'Lib/guile/guile_scm_run.swg')
-rw-r--r--Lib/guile/guile_scm_run.swg2
1 files changed, 1 insertions, 1 deletions
diff --git a/Lib/guile/guile_scm_run.swg b/Lib/guile/guile_scm_run.swg
index 0d04cb7c6..86e5c3be0 100644
--- a/Lib/guile/guile_scm_run.swg
+++ b/Lib/guile/guile_scm_run.swg
@@ -186,7 +186,7 @@ SWIG_Guile_ConvertPtr(SCM s, void **result, swig_type_info *type, int flags)
if (SCM_NULLP(smob)) {
*result = NULL;
- return SWIG_OK;
+ return (flags & SWIG_POINTER_NO_NULL) ? SWIG_NullReferenceError : SWIG_OK;
#if SCM_MAJOR_VERSION >= 2
} else if (SCM_POINTER_P(s)) {
*result = SCM_POINTER_VALUE(s);