HCoop
/
bpt
/
guile.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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
/* 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_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");
scm_set_smob_print (scm_tc16_charset, charset_print);
scm_char_set_upper_case = define_charset ("char-set:upper-case");