mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-07-11 23:17:34 +02:00
wrong scale on ms difference
This commit is contained in:
parent
5975cccd37
commit
9684192ffe
1 changed files with 1 additions and 1 deletions
|
@ -48,7 +48,7 @@
|
|||
(define (timeval-difference tv1 tv2)
|
||||
(let ((seconds (- (timeval-seconds tv1) (timeval-seconds tv2)))
|
||||
(ms (- (timeval-microseconds tv1) (timeval-microseconds tv2))))
|
||||
(+ (max seconds 0.0) (/ ms 100000.0))))
|
||||
(+ (max seconds 0.0) (/ ms 1000000.0))))
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;; test interface
|
||||
|
|
Loading…
Add table
Reference in a new issue