diff options
Diffstat (limited to 'libguile/dynwind.c')
-rw-r--r-- | libguile/dynwind.c | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/libguile/dynwind.c b/libguile/dynwind.c index 82095008f..5f47ba9d9 100644 --- a/libguile/dynwind.c +++ b/libguile/dynwind.c @@ -186,14 +186,6 @@ scm_dynwind_end (void) assert (0); } -static SCM -winder_mark (SCM w) -{ - if (WINDER_MARK_P (w)) - return SCM_PACK (WINDER_DATA (w)); - return SCM_BOOL_F; -} - void scm_dynwind_unwind_handler (void (*proc) (void *), void *data, scm_t_wind_flags flags) @@ -371,7 +363,6 @@ scm_init_dynwind () tc16_frame = scm_make_smob_type ("frame", 0); tc16_winder = scm_make_smob_type ("winder", 0); - scm_set_smob_mark (tc16_winder, winder_mark); #include "libguile/dynwind.x" } |