From a7428a3172445f1265199ae3a1dc94cbb7d0551e Mon Sep 17 00:00:00 2001 From: Freja Nordsiek Date: Sun, 19 Mar 2017 16:15:24 +0100 Subject: [PATCH] Fixed bug: statprof flat display wasn't writing summary lines to port * module/statprof.scm (statprof-display/flat): fixed bug where summary lines were written to (current-output-port) instead of the provided port. --- module/statprof.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/module/statprof.scm b/module/statprof.scm index fe605e0e8..59a2f12d0 100644 --- a/module/statprof.scm +++ b/module/statprof.scm @@ -652,8 +652,8 @@ optional @var{port} argument is passed, uses the current output port." (for-each display-stats-line sorted-stats) (display "---\n" port) - (format #t "Sample count: ~A\n" (statprof-sample-count state)) - (format #t "Total time: ~A seconds (~A seconds in GC)\n" + (format port "Sample count: ~A\n" (statprof-sample-count state)) + (format port "Total time: ~A seconds (~A seconds in GC)\n" (statprof-accumulated-time state) (/ (gc-time-taken state) 1.0 internal-time-units-per-second))))))