Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-09 22:17:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

making percentages inexact

Browse source
This commit is contained in:
Alex Shinn 2012-05-06 14:51:53 +09:00
parent 8869320e63
commit 14370af921
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/chibi/test.scm
View file

@ -451,7 +451,7 @@
(define (plural word n) (define (plural word n)
(if (= n 1) word (string-append word "s"))) (if (= n 1) word (string-append word "s")))
(define (percent n d) (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)) (let* ((end-time (get-time-of-day))
(start-time (test-group-ref group 'start-time)) (start-time (test-group-ref group 'start-time))
(duration (timeval-difference (car end-time) (car start-time))) (duration (timeval-difference (car end-time) (car start-time)))