diff options
Diffstat (limited to 'libguile/dynwind.c')
-rw-r--r-- | libguile/dynwind.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/libguile/dynwind.c b/libguile/dynwind.c index e8059be27..299842912 100644 --- a/libguile/dynwind.c +++ b/libguile/dynwind.c @@ -234,6 +234,12 @@ scm_frame_rewind_handler_with_scm (void (*proc) (SCM), SCM data, proc (data); } +void +scm_frame_free (void *mem) +{ + scm_frame_unwind_handler (free, mem, SCM_F_WIND_EXPLICITLY); +} + #ifdef GUILE_DEBUG SCM_DEFINE (scm_wind_chain, "wind-chain", 0, 0, 0, (), |