[MLton-commit] r5489

[Matthew Fluet]

Export {IntInf,LargeInt}.zero
----------------------------------------------------------------------

U   mlton/trunk/basis-library/integer/int-inf.sig
U   mlton/trunk/basis-library/posix/proc-env.sml

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

Modified: mlton/trunk/basis-library/integer/int-inf.sig
===================================================================
--- mlton/trunk/basis-library/integer/int-inf.sig	2007-03-29 19:44:14 UTC (rev 5488)
+++ mlton/trunk/basis-library/integer/int-inf.sig	2007-03-29 19:46:09 UTC (rev 5489)
@@ -30,6 +30,9 @@
        | Small of SmallInt.int
       val rep: int -> rep
 
+      val zero: int
+      val one: int
+
       val +? : int * int -> int
       val *? : int * int -> int
       val -? : int * int -> int

Modified: mlton/trunk/basis-library/posix/proc-env.sml
===================================================================
--- mlton/trunk/basis-library/posix/proc-env.sml	2007-03-29 19:44:14 UTC (rev 5488)
+++ mlton/trunk/basis-library/posix/proc-env.sml	2007-03-29 19:46:09 UTC (rev 5489)
@@ -229,7 +229,7 @@
              * we don't want a SysErr during Basis Library initialization. 
              *)
             if (let open Primitive.MLton.Platform.OS in host = MinGW end)
-               then LargeInt.fromInt 0
+               then LargeInt.zero
             else SysWord.toLargeIntX (sysconf "CLK_TCK")
 
          fun cvt (clocks: C_Clock.t) =