mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-29 19:30:36 +02:00
Code Activity

Fixed bug: statprof flat display wasn't writing summary lines to port

Browse source 
* module/statprof.scm (statprof-display/flat): fixed bug where summary lines
  were written to (current-output-port) instead of the provided port.
This commit is contained in:
Freja Nordsiek 2017-03-19 16:15:24 +01:00 • committed by Andy Wingo
parent 93b2bfd822
commit a7428a3172
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/statprof.scm
View file

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