From f0af17b3244d98109a62e3fda5ab6e5fc458283d Mon Sep 17 00:00:00 2001
From: William S Fulton <wsf@fultondesigns.co.uk>
Date: Fri, 16 Sep 2022 19:13:02 +0100
Subject: [PATCH] Correct error handling in Guile pointer conversion

---
 Lib/guile/guile_scm_run.swg | 2 ++
 1 file changed, 2 insertions(+)

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);