Merge commit '29776e85da637ec4d44b2b2822d6934a50c0084b' into boehm-demers-weiser-gc

[bpt/guile.git] / libguile / srfi-14.c

diff --git a/libguile/srfi-14.c b/libguile/srfi-14.c
index 908e0c8..fc047c0 100644 (file)
--- a/libguile/srfi-14.c
+++ b/libguile/srfi-14.c
@@ -67,13 +67,6 @@ charset_print (SCM charset, SCM port, scm_print_state *pstate SCM_UNUSED)
 }
 
 
-/* Smob free hook for character sets. */
-static size_t
-charset_free (SCM charset)
-{
-  return scm_smob_free (charset);
-}
-
 
 /* Create a new, empty character set.  */
 static SCM
@@ -1544,7 +1537,6 @@ scm_init_srfi_14 (void)
 {
   scm_tc16_charset = scm_make_smob_type ("character-set",
                                         BYTES_PER_CHARSET);
-  scm_set_smob_free (scm_tc16_charset, charset_free);
   scm_set_smob_print (scm_tc16_charset, charset_print);
 
   scm_char_set_upper_case = define_charset ("char-set:upper-case");