diff options
-rw-r--r-- | benchmark-suite/ChangeLog | 6 | ||||
-rw-r--r-- | benchmark-suite/lib.scm | 27 |
2 files changed, 19 insertions, 14 deletions
diff --git a/benchmark-suite/ChangeLog b/benchmark-suite/ChangeLog index 1ed5c3421..5cc798ed5 100644 --- a/benchmark-suite/ChangeLog +++ b/benchmark-suite/ChangeLog @@ -1,5 +1,11 @@ 2002-07-21 Dirk Herrmann <D.Herrmann@tu-bs.de> + * lib.scm (print-result, print-user-result): Changed the + reporter's outputs to use symbols rather than strings to document + the individual values. Thanks to Neil Jerram for the suggestion. + +2002-07-21 Dirk Herrmann <D.Herrmann@tu-bs.de> + * benchmarks/0-reference.bm: Added as a reference benchmark to be used to calibrate iteration counts. diff --git a/benchmark-suite/lib.scm b/benchmark-suite/lib.scm index 1f940a251..7dfc8b48c 100644 --- a/benchmark-suite/lib.scm +++ b/benchmark-suite/lib.scm @@ -435,7 +435,7 @@ ;;;; Some useful standard reporters: -;;;; Log reporters write all test results to a given log file. +;;;; Log reporters write all benchmark results to a given log file. ;;;; Full reporters write all benchmark results to the standard output. ;;;; User reporters write some interesting results to the standard output. @@ -452,14 +452,14 @@ (benchmark-core-time\interpreter (benchmark-core-time\interpreter iterations before after gc-time))) (write (list name iterations - "total:" (/ total-time time-base) - "user:" (/ user-time time-base) - "system:" (/ system-time time-base) - "frame:" (/ frame-time time-base) - "benchmark:" (/ benchmark-time time-base) - "user/interp:" (/ user-time\interpreter time-base) - "bench/interp:" (/ benchmark-core-time\interpreter time-base) - "gc:" (/ gc-time time-base)) + 'total (/ total-time time-base) + 'user (/ user-time time-base) + 'system (/ system-time time-base) + 'frame (/ frame-time time-base) + 'benchmark (/ benchmark-time time-base) + 'user/interp (/ user-time\interpreter time-base) + 'bench/interp (/ benchmark-core-time\interpreter time-base) + 'gc (/ gc-time time-base)) port) (newline port))) @@ -484,10 +484,10 @@ (benchmark-core-time\interpreter (benchmark-core-time\interpreter iterations before after gc-time))) (write (list name iterations - "user:" (/ user-time time-base) - "benchmark:" (/ benchmark-time time-base) - "bench/interp:" (/ benchmark-core-time\interpreter time-base) - "gc:" (/ gc-time time-base)) + 'user (/ user-time time-base) + 'benchmark (/ benchmark-time time-base) + 'bench/interp (/ benchmark-core-time\interpreter time-base) + 'gc (/ gc-time time-base)) port) (newline port))) @@ -518,4 +518,3 @@ ;;; Finally, set the default reporter (set! default-reporter user-reporter) - |