1 files changed, 15 insertions, 7 deletions
diff --git a/rts/Printer.c b/rts/Printer.c
index ae76a4143e..01f16921cf 100644
--- a/rts/Printer.c
+++ b/rts/Printer.c
@@ -425,6 +425,21 @@ printClosure( const StgClosure *obj )
     }
 }
 
+void
+printMutableList(bdescr *bd)
+{
+    StgPtr p;
+
+    debugBelch("mutable list %p: ", bd);
+
+    for (; bd != NULL; bd = bd->link) {
+        for (p = bd->start; p < bd->free; p++) {
+            debugBelch("%p (%s), ", (void *)*p, info_type((StgClosure *)*p));
+        }
+    }
+    debugBelch("\n");
+}
+
 // If you know you have an UPDATE_FRAME, but want to know exactly which.
 const char *info_update_frame(const StgClosure *closure)
 {
@@ -444,13 +459,6 @@ const char *info_update_frame(const StgClosure *closure)
     }
 }
 
-/*
-void printGraph( StgClosure *obj )
-{
- printClosure(obj);
-}
-*/
-
 static void
 printSmallBitmap( StgPtr spBottom, StgPtr payload, StgWord bitmap,
                     uint32_t size )