From: Joe Marshall <eval.apply@gmail.com>
Date: Sat, 13 Aug 2011 23:09:27 +0000 (-0700)
Subject: Widen text columns for printing GC statistics.
X-Git-Tag: release-9.2.0~347^2~3
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=94945ad906a3427e4d80a2019c6a0a041ccc5fb8;p=mit-scheme.git

Widen text columns for printing GC statistics.
---

diff --git a/src/runtime/gcnote.scm b/src/runtime/gcnote.scm
index 80964a349..73a96b503 100644
--- a/src/runtime/gcnote.scm
+++ b/src/runtime/gcnote.scm
@@ -69,9 +69,9 @@ USA.
 		 (newline)
 		 (write-string
 		  (string-pad-right (string-append label ": ") 17))
-		 (write-number n-words 8)
+		 (write-number n-words 9)
 		 (write-string " words = ")
-		 (write-number (quotient n-words 1024) 5)
+		 (write-number (quotient n-words 1024) 6)
 		 (write-string " blocks")
 		 (let ((n-words (remainder n-words 1024)))
 		   (write-string " + ")