diff --git a/libguile/dynwind.h b/libguile/dynwind.h index b207d83b8..920e9a83c 100644 --- a/libguile/dynwind.h +++ b/libguile/dynwind.h @@ -47,7 +47,7 @@ typedef enum { } scm_t_frame_flags; typedef enum { - SCM_F_WIND_EXPLICITELY = (1 << 0) + SCM_F_WIND_EXPLICITLY = (1 << 0) } scm_t_wind_flags; SCM_API void scm_begin_frame (scm_t_frame_flags); @@ -58,6 +58,11 @@ SCM_API void scm_on_unwind (void (*func) (void *), void *data, SCM_API void scm_on_rewind (void (*func) (void *), void *data, scm_t_wind_flags); +SCM_API void scm_on_unwind_with_scm (void (*func) (SCM), SCM data, + scm_t_wind_flags); +SCM_API void scm_on_rewind_with_scm (void (*func) (SCM), SCM data, + scm_t_wind_flags); + #ifdef GUILE_DEBUG SCM_API SCM scm_wind_chain (void); #endif /*GUILE_DEBUG*/