diff options
Diffstat (limited to 'libguile/dynwind.c')
-rw-r--r-- | libguile/dynwind.c | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/libguile/dynwind.c b/libguile/dynwind.c index 9cbee31ea..1f668b077 100644 --- a/libguile/dynwind.c +++ b/libguile/dynwind.c @@ -82,6 +82,17 @@ scm_dynamic_wind (thunk1, thunk2, thunk3) } +#ifdef GUILE_DEBUG +SCM_PROC (s_wind_chain, "wind-chain", 0, 0, 0, scm_wind_chain); + +SCM +scm_wind_chain () +{ + return scm_dynwinds; +} +#endif + + void scm_dowinds (to, delta) SCM to; |