X-Git-Url: http://git.hcoop.net/bpt/guile.git/blobdiff_plain/29776e85da637ec4d44b2b2822d6934a50c0084b..6774820f1e83a388b3232cd61a66340886b395d8:/libguile/srfi-14.c

diff --git a/libguile/srfi-14.c b/libguile/srfi-14.c
index 908e0c8ff..fc047c028 100644
--- 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");