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

wrong scale on ms difference

Browse source
This commit is contained in:
Alex Shinn 2010-07-31 23:20:50 +09:00
parent 5975cccd37
commit 9684192ffe
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

@ -48,7 +48,7 @@
(define (timeval-difference tv1 tv2) (define (timeval-difference tv1 tv2)
(let ((seconds (- (timeval-seconds tv1) (timeval-seconds tv2))) (let ((seconds (- (timeval-seconds tv1) (timeval-seconds tv2)))
(ms (- (timeval-microseconds tv1) (timeval-microseconds tv2)))) (ms (- (timeval-microseconds tv1) (timeval-microseconds tv2))))
(+ (max seconds 0.0) (/ ms 100000.0)))) (+ (max seconds 0.0) (/ ms 1000000.0))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; test interface ;; test interface