~ chicken-core (chicken-5) 965df1b001cf010d06c8252748dc4a8125dae6c2

commit 965df1b001cf010d06c8252748dc4a8125dae6c2
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Tue Jul 19 11:57:49 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Tue Jul 19 11:57:49 2011 +0200

    round time needed for compiler-passes

diff --git a/batch-driver.scm b/batch-driver.scm
index 7e99fca7..7994b7cc 100644
--- a/batch-driver.scm
+++ b/batch-driver.scm
@@ -149,7 +149,9 @@
 
     (define (end-time pass)
       (when time-breakdown
-	(printf "milliseconds needed for ~a: \t~s~%" pass (- (cputime) time0)) ) )
+	(printf "milliseconds needed for ~a: \t~s~%" 
+	  pass
+	  (inexact->exact (round (- (cputime) time0)) ) )))
 
     (define (analyze pass node . args)
       (let-optionals args ((no 0) (contf #t))