i18: avoid freelocale (NULL)

[bpt/guile.git] / libguile / i18n.c

diff --git a/libguile/i18n.c b/libguile/i18n.c
index 057711f..817c661 100644 (file)
--- a/libguile/i18n.c
+++ b/libguile/i18n.c
@@ -232,7 +232,8 @@ SCM_SMOB_FREE (scm_tc16_locale_smob_type, smob_locale_free, locale)
   scm_t_locale c_locale;
 
   c_locale = (scm_t_locale) SCM_SMOB_DATA (locale);
-  freelocale (c_locale);
+  if (c_locale)
+    freelocale (c_locale);
 
   return 0;
 }