From 94945ad906a3427e4d80a2019c6a0a041ccc5fb8 Mon Sep 17 00:00:00 2001
From: Joe Marshall <eval.apply@gmail.com>
Date: Sat, 13 Aug 2011 16:09:27 -0700
Subject: [PATCH] Widen text columns for printing GC statistics.

---
 src/runtime/gcnote.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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 " + ")
-- 
2.25.1