From 9684192ffec71944b91b1d94dd60e90318466d98 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Sat, 31 Jul 2010 23:20:50 +0900
Subject: [PATCH] wrong scale on ms difference

---
 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 e5a4d804..58649427 100644
--- a/lib/chibi/test.scm
+++ b/lib/chibi/test.scm
@@ -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