[MLton-commit] r5386

[Vesa Karvonen]

Fixed conversion of nanoseconds to milliseconds.
----------------------------------------------------------------------

U   mlton/trunk/runtime/platform/mingw.c

----------------------------------------------------------------------

Modified: mlton/trunk/runtime/platform/mingw.c
===================================================================
--- mlton/trunk/runtime/platform/mingw.c	2007-03-02 17:56:21 UTC (rev 5385)
+++ mlton/trunk/runtime/platform/mingw.c	2007-03-03 05:30:53 UTC (rev 5386)
@@ -592,7 +592,7 @@
 }
 
 int nanosleep (const struct timespec *req, struct timespec *rem) {
-        Sleep (req->tv_sec * 1000 + (req->tv_nsec + 999) / 1000);
+        Sleep (req->tv_sec * 1000 + (req->tv_nsec + 999999) / 1000000);
         rem->tv_nsec = 0;
         rem->tv_sec = 0;
         return 0;