From c2654ef0fa2e6dde0227dd81fb624ebb1c4801a9 Mon Sep 17 00:00:00 2001
From: Mikael Djurfeldt <djurfeldt@nada.kth.se>
Date: Fri, 30 Jan 1998 21:07:14 +0000
Subject: [PATCH] *  dynwind.c (scm_wind_chain): New debug function.

---
 libguile/dynwind.c | 11 +++++++++++
 1 file changed, 11 insertions(+)

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;