diff options
Diffstat (limited to 'libguile/objcodes.c')
-rw-r--r-- | libguile/objcodes.c | 7 |
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); } |