From: Matt Birkholz Date: Sun, 17 Jan 2016 18:49:04 +0000 (-0700) Subject: src/runtime/gcnote.scm (gc-statistic->string): Abbreviate... X-Git-Tag: mit-scheme-pucked-9.2.12~373^2~6 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6786d5360d68ee0ef073535aa575206867c52744;p=mit-scheme.git src/runtime/gcnote.scm (gc-statistic->string): Abbreviate... ...to keep each line under 80 columns (at least at first). --- diff --git a/src/runtime/gcnote.scm b/src/runtime/gcnote.scm index 141f4fb05..20815e19d 100644 --- a/src/runtime/gcnote.scm +++ b/src/runtime/gcnote.scm @@ -227,10 +227,10 @@ USA. (gc-statistic/this-gc-start statistic) (gc-statistic/this-gc-end statistic) (gc-statistic/last-gc-end statistic)) - " CPU time, " + " CPU, " (intervals->string (gc-statistic/this-gc-start-clock statistic) (gc-statistic/this-gc-end-clock statistic) (gc-statistic/last-gc-end-clock statistic)) - " real time; free: " + " real; free: " (number->string (gc-statistic/heap-left statistic))))) \ No newline at end of file