[MLton-commit] r6193

Ville Laurikari ville at mlton.org
Wed Nov 21 04:22:36 PST 2007


Export abstract types only.

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

U   mltonlib/trunk/org/mlton/ville/mersenne-twister/unstable/detail/mt-19937.sml
U   mltonlib/trunk/org/mlton/ville/mersenne-twister/unstable/public/export.sml

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

Modified: mltonlib/trunk/org/mlton/ville/mersenne-twister/unstable/detail/mt-19937.sml
===================================================================
--- mltonlib/trunk/org/mlton/ville/mersenne-twister/unstable/detail/mt-19937.sml	2007-11-21 01:23:13 UTC (rev 6192)
+++ mltonlib/trunk/org/mlton/ville/mersenne-twister/unstable/detail/mt-19937.sml	2007-11-21 12:22:34 UTC (rev 6193)
@@ -1,4 +1,4 @@
-structure MersenneTwister : RNG = struct
+structure MersenneTwister :> RNG = struct
    open Word32
    val && = andb
    val || = orb
@@ -11,7 +11,7 @@
    datatype t = D of {mt: word array, i: word ref}
 
    fun new seed = let
-      val mt = Array.array(toIntX n, 0w0)
+      val mt = Array.array (toIntX n, 0w0)
       val _ = Array.update (mt, 0, seed)
       fun loop (prev, i) =
           if i < n then

Modified: mltonlib/trunk/org/mlton/ville/mersenne-twister/unstable/public/export.sml
===================================================================
--- mltonlib/trunk/org/mlton/ville/mersenne-twister/unstable/public/export.sml	2007-11-21 01:23:13 UTC (rev 6192)
+++ mltonlib/trunk/org/mlton/ville/mersenne-twister/unstable/public/export.sml	2007-11-21 12:22:34 UTC (rev 6193)
@@ -1,2 +1,2 @@
 signature RNG = RNG
-structure MersenneTwister : RNG = MersenneTwister
+structure MersenneTwister :> RNG = MersenneTwister




More information about the MLton-commit mailing list