mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 14:21:10 +02:00
Code Activity

* dynwind.c (scm_wind_chain): New debug function.

Browse source
This commit is contained in:
Mikael Djurfeldt 1998-01-30 21:07:14 +00:00
parent d186aac642
commit c2654ef0fa
1 changed files with 11 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

11
libguile/dynwind.c
View file

@ -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 void
scm_dowinds (to, delta) scm_dowinds (to, delta)
SCM to; SCM to;