summaryrefslogtreecommitdiff
path: root/libguile/objcodes.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/objcodes.c')
-rw-r--r--libguile/objcodes.c7
1 files changed, 0 insertions, 7 deletions
diff --git a/libguile/objcodes.c b/libguile/objcodes.c
index 5466ecc2c..33ba296ea 100644
--- a/libguile/objcodes.c
+++ b/libguile/objcodes.c
@@ -135,12 +135,6 @@ scm_c_make_objcode_slice (SCM parent, const scm_t_uint8 *ptr)
}
#undef FUNC_NAME
-static SCM
-objcode_mark (SCM obj)
-{
- return SCM_SMOB_OBJECT_2 (obj);
-}
-
/*
* Scheme interface
@@ -264,7 +258,6 @@ void
scm_bootstrap_objcodes (void)
{
scm_tc16_objcode = scm_make_smob_type ("objcode", 0);
- scm_set_smob_mark (scm_tc16_objcode, objcode_mark);
scm_c_register_extension ("libguile", "scm_init_objcodes",
(scm_t_extension_init_func)scm_init_objcodes, NULL);
}