diff options
| author | Freja Nordsiek <fnordsie@gmail.com> | 2017-03-19 16:15:24 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2017-04-19 16:25:00 +0200 |
| commit | a7428a3172445f1265199ae3a1dc94cbb7d0551e (patch) | |
| tree | c00871071829a2f0a8d589f4d05aa0c5af44a5e5 /module/statprof.scm | |
| parent | 93b2bfd822bf4dd7eacb4ff907a504c71d172b6c (diff) | |
| download | guile-a7428a3172445f1265199ae3a1dc94cbb7d0551e.tar.gz | |
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.
Diffstat (limited to 'module/statprof.scm')
| -rw-r--r-- | module/statprof.scm | 4 |
1 files 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)))))) |