summaryrefslogtreecommitdiff
path: root/libguile/bytevectors.c
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2009-08-18 00:31:32 +0200
committerLudovic Courtès <ludo@gnu.org>2009-08-18 00:31:32 +0200
commit3b882d69fb4d4be9e46767d57c22c5f0e33a9be4 (patch)
treeb3d7a73e01f88cf2e0ddaa9bc4583a96d9bb7ac6 /libguile/bytevectors.c
parent1ac8a47f0187d2a96bc4571cb10cbf45b0edc9d4 (diff)
downloadguile-3b882d69fb4d4be9e46767d57c22c5f0e33a9be4.tar.gz
Remove unneeded SMOB mark/free procedures.
* libguile/bytevectors.c (free_bytevector): Remove. (scm_bootstrap_bytevectors): Update accordingly. * libguile/r6rs-ports.c (bip_mark, cbp_mark, bop_free, bop_proc_mark): Remove. (initialize_bytevector_input_ports, initialize_custom_binary_input_ports, initialize_bytevector_output_ports, initialize_custom_binary_output_ports): Update accordingly.
Diffstat (limited to 'libguile/bytevectors.c')
-rw-r--r--libguile/bytevectors.c20
1 files changed, 0 insertions, 20 deletions
diff --git a/libguile/bytevectors.c b/libguile/bytevectors.c
index ee7004590..e8c65bf33 100644
--- a/libguile/bytevectors.c
+++ b/libguile/bytevectors.c
@@ -370,25 +370,6 @@ bytevector_equal_p (SCM bv1, SCM bv2)
return scm_bytevector_eq_p (bv1, bv2);
}
-static size_t
-free_bytevector (SCM bv)
-{
-
- if (!SCM_BYTEVECTOR_INLINE_P (bv))
- {
- unsigned c_len;
- signed char *c_bv;
-
- c_bv = SCM_BYTEVECTOR_CONTENTS (bv);
- c_len = SCM_BYTEVECTOR_LENGTH (bv);
-
- scm_gc_free (c_bv, c_len, SCM_GC_BYTEVECTOR);
- }
-
- return 0;
-}
-
-
/* General operations. */
@@ -2086,7 +2067,6 @@ scm_bootstrap_bytevectors (void)
generalized-vector API may want to access bytevectors even though
`(rnrs bytevector)' hasn't been loaded. */
scm_tc16_bytevector = scm_make_smob_type ("bytevector", 0);
- scm_set_smob_free (scm_tc16_bytevector, free_bytevector);
scm_set_smob_print (scm_tc16_bytevector, print_bytevector);
scm_set_smob_equalp (scm_tc16_bytevector, bytevector_equal_p);