[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 01/01: Fixed bug: statprof flat display wasn't writing s
From: |
Andy Wingo |
Subject: |
[Guile-commits] 01/01: Fixed bug: statprof flat display wasn't writing summary lines to port |
Date: |
Wed, 19 Apr 2017 10:25:07 -0400 (EDT) |
wingo pushed a commit to branch master
in repository guile.
commit a7428a3172445f1265199ae3a1dc94cbb7d0551e
Author: Freja Nordsiek <address@hidden>
Date: Sun Mar 19 16:15:24 2017 +0100
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 fe605e0..59a2f12 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))))))