diff options
author | Ian Lynagh <igloo@earth.li> | 2010-06-20 00:04:59 +0000 |
---|---|---|
committer | Ian Lynagh <igloo@earth.li> | 2010-06-20 00:04:59 +0000 |
commit | 606452f9c07defe1f3603a35f867fb4597a5dfb5 (patch) | |
tree | c5086ecfac7829e81d9ddb2cefe3e42a8457f980 /rts | |
parent | e7145eeefd01106cedb16a22866eb5160ccfb030 (diff) | |
download | haskell-606452f9c07defe1f3603a35f867fb4597a5dfb5.tar.gz |
Remove some old commented out code
Diffstat (limited to 'rts')
-rw-r--r-- | rts/Printer.c | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/rts/Printer.c b/rts/Printer.c index b55f1055f8..565a11ed77 100644 --- a/rts/Printer.c +++ b/rts/Printer.c @@ -289,10 +289,6 @@ 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<arr_words_words((StgArrWords *)obj); i++) debugBelch("%lu", (lnat)((StgArrWords *)obj)->payload[i]); debugBelch("\")\n"); |