From 94945ad906a3427e4d80a2019c6a0a041ccc5fb8 Mon Sep 17 00:00:00 2001 From: Joe Marshall 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