summaryrefslogtreecommitdiff
path: root/libguile/dynwind.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/dynwind.c')
-rw-r--r--libguile/dynwind.c9
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"
}