[Guile-commits] 01/01: Fixed bug: statprof flat display wasn't writing summary lines to port

[Andy Wingo]

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))))))