summaryrefslogtreecommitdiff
path: root/Lib/guile/guile_scm_run.swg
diff options
context:
space:
mode:
authorMatthias Köppe <mkoeppe@mail.math.uni-magdeburg.de>2004-02-22 15:28:03 +0000
committerMatthias Köppe <mkoeppe@mail.math.uni-magdeburg.de>2004-02-22 15:28:03 +0000
commit7fbaa3b63388de811713eb2e7a92205088a4b016 (patch)
tree30d652108389ae5920be0fce00ad694d9360a0b4 /Lib/guile/guile_scm_run.swg
parentd3d9210bd055b02d7b7e5a6beebfacf4b1122aa2 (diff)
downloadswig-7fbaa3b63388de811713eb2e7a92205088a4b016.tar.gz
Don't try to invoke a null destructor function.
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@5732 626c5289-ae23-0410-ae9c-e8d60b6d4f22
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 0e74d996f..6ac99f121 100644
--- a/Lib/guile/guile_scm_run.swg
+++ b/Lib/guile/guile_scm_run.swg
@@ -256,7 +256,7 @@ free_swig(SCM A)
{
swig_type_info *type = (swig_type_info *) SCM_CELL_WORD_2(A);
if (type) {
- if (type->clientdata)
+ if (type->clientdata && ((swig_guile_clientdata *)type->clientdata)->destroy)
((swig_guile_clientdata *)type->clientdata)->destroy(A);
}
return 0;