summaryrefslogtreecommitdiff
path: root/libguile/dynwind.c
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>1998-01-30 21:07:14 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>1998-01-30 21:07:14 +0000
commitc2654ef0fa2e6dde0227dd81fb624ebb1c4801a9 (patch)
treed58d65670c671cf63dd8decea15e0eeacb8c169d /libguile/dynwind.c
parentd186aac642b9860e86e359af9bad471fe06e0c39 (diff)
downloadguile-c2654ef0fa2e6dde0227dd81fb624ebb1c4801a9.tar.gz
* dynwind.c (scm_wind_chain): New debug function.
Diffstat (limited to 'libguile/dynwind.c')
-rw-r--r--libguile/dynwind.c11
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;