From 14370af92115e4a94336daad654a2950d9c5195e Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Sun, 6 May 2012 14:51:53 +0900 Subject: [PATCH] making percentages inexact --- lib/chibi/test.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/chibi/test.scm b/lib/chibi/test.scm index 94041a4f..5aa4b7fd 100644 --- a/lib/chibi/test.scm +++ b/lib/chibi/test.scm @@ -451,7 +451,7 @@ (define (plural word n) (if (= n 1) word (string-append word "s"))) (define (percent n d) - (string-append " (" (number->string (/ (round (* 1000 (/ n d))) 10)) "%)")) + (string-append " (" (number->string (/ (round (* 1000.0 (/ n d))) 10)) "%)")) (let* ((end-time (get-time-of-day)) (start-time (test-group-ref group 'start-time)) (duration (timeval-difference (car end-time) (car start-time)))