diff options
author | Marius Vollmer <mvo@zagadka.de> | 2004-01-06 16:19:21 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2004-01-06 16:19:21 +0000 |
commit | 08feeec84a26d379985b2baf640f88f73847383e (patch) | |
tree | 39eaeed19a27042785ab88dc79738f243e8ac96f | |
parent | 49c00ecc7b373b80bc8b3c604c864e7e90e6fc07 (diff) | |
download | guile-08feeec84a26d379985b2baf640f88f73847383e.tar.gz |
(print-result, print-user-result): Handle exact fractions.
-rw-r--r-- | benchmark-suite/lib.scm | 30 |
1 files changed, 16 insertions, 14 deletions
diff --git a/benchmark-suite/lib.scm b/benchmark-suite/lib.scm index 49e37be0c..840784e85 100644 --- a/benchmark-suite/lib.scm +++ b/benchmark-suite/lib.scm @@ -450,16 +450,17 @@ (user-time\interpreter (benchmark-user-time\interpreter before after gc-time)) (benchmark-core-time\interpreter - (benchmark-core-time\interpreter iterations before after gc-time))) + (benchmark-core-time\interpreter iterations before after gc-time)) + (i/ (lambda (a b) (exact->inexact (/ a b))))) (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 (i/ total-time time-base) + 'user (i/ user-time time-base) + 'system (i/ system-time time-base) + 'frame (i/ frame-time time-base) + 'benchmark (i/ benchmark-time time-base) + 'user/interp (i/ user-time\interpreter time-base) + 'bench/interp (i/ benchmark-core-time\interpreter time-base) + 'gc (i/ gc-time time-base)) port) (newline port))) @@ -482,12 +483,13 @@ (user-time (benchmark-user-time before after)) (benchmark-time (benchmark-core-time iterations before after)) (benchmark-core-time\interpreter - (benchmark-core-time\interpreter iterations before after gc-time))) + (benchmark-core-time\interpreter iterations before after gc-time)) + (i/ (lambda (a b) (exact->inexact (/ a b))))) (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 (i/ user-time time-base) + 'benchmark (i/ benchmark-time time-base) + 'bench/interp (i/ benchmark-core-time\interpreter time-base) + 'gc (i/ gc-time time-base)) port) (newline port))) |