X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FPrinter.c;h=565a11ed7743891177fa413737d34f636897beb7;hb=d108044bef62f6a0d579c92ced5e8188f72edc2d;hp=9e772c4f615f9806c1c1ab82c29249a2cdcad0cb;hpb=5dfe6b1d583acc2dda0c0fd203f66c7c54a1131b;p=ghc-hetmet.git

diff --git a/rts/Printer.c b/rts/Printer.c
index 9e772c4..565a11e 100644
--- a/rts/Printer.c
+++ b/rts/Printer.c
@@ -289,11 +289,7 @@ printClosure( StgClosure *obj )
         {
             StgWord i;
             debugBelch("ARR_WORDS(\"");
-            /* ToDo: we can't safely assume that this is a string! 
-            for (i = 0; arrWordsGetChar(obj,i); ++i) {
-                putchar(arrWordsGetChar(obj,i));
-		} */
-	    for (i=0; i<((StgArrWords *)obj)->words; i++)
+	    for (i=0; i<arr_words_words((StgArrWords *)obj); i++)
 	      debugBelch("%lu", (lnat)((StgArrWords *)obj)->payload[i]);
             debugBelch("\")\n");
             break;