[MLton-commit] r7208

[Wesley Terpstra]

Type is wrong on 64-bit


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

U   mlton/trunk/basis-library/posix/stub-mingw.sml

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

Modified: mlton/trunk/basis-library/posix/stub-mingw.sml
===================================================================
--- mlton/trunk/basis-library/posix/stub-mingw.sml	2009-07-04 19:28:11 UTC (rev 7207)
+++ mlton/trunk/basis-library/posix/stub-mingw.sml	2009-07-04 21:12:30 UTC (rev 7208)
@@ -92,7 +92,7 @@
                      val fork = stub ("fork", fork)
                      val pause = stub ("pause", pause)
                      val waitpid = fn (args as (pid, _, _)) =>
-                        if pid <= 0 
+                        if C_PId.<= (pid, 0)
                         then stub ("waitpid", waitpid) args
                         else waitpid args
                   end