[MLton-commit] r5605

[Vesa Karvonen]

Using the TopLevel module.

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

U   mltonlib/trunk/com/ssh/random/unstable/detail/mk-random-gen.fun
U   mltonlib/trunk/com/ssh/random/unstable/detail/numerical-recipes.sml
U   mltonlib/trunk/com/ssh/random/unstable/detail/ranqd1-gen.sml

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

Modified: mltonlib/trunk/com/ssh/random/unstable/detail/mk-random-gen.fun
===================================================================
--- mltonlib/trunk/com/ssh/random/unstable/detail/mk-random-gen.fun	2007-06-10 10:28:28 UTC (rev 5604)
+++ mltonlib/trunk/com/ssh/random/unstable/detail/mk-random-gen.fun	2007-06-10 10:31:08 UTC (rev 5605)
@@ -9,7 +9,7 @@
               where type RNG.Seed.t = RNG.Seed.t =
 struct
    (* <-- SML/NJ workarounds *)
-   open Basic Fn
+   open TopLevel
    infix  4 <\
    infixr 4 />
    infix  1 >>=

Modified: mltonlib/trunk/com/ssh/random/unstable/detail/numerical-recipes.sml
===================================================================
--- mltonlib/trunk/com/ssh/random/unstable/detail/numerical-recipes.sml	2007-06-10 10:28:28 UTC (rev 5604)
+++ mltonlib/trunk/com/ssh/random/unstable/detail/numerical-recipes.sml	2007-06-10 10:31:08 UTC (rev 5605)
@@ -24,7 +24,7 @@
     *)
 end = struct
    (* <-- SML/NJ workarounds *)
-   open Fn
+   open TopLevel
    infix  7 >> <<
    infix  6 andb
    infix  5 xorb

Modified: mltonlib/trunk/com/ssh/random/unstable/detail/ranqd1-gen.sml
===================================================================
--- mltonlib/trunk/com/ssh/random/unstable/detail/ranqd1-gen.sml	2007-06-10 10:28:28 UTC (rev 5604)
+++ mltonlib/trunk/com/ssh/random/unstable/detail/ranqd1-gen.sml	2007-06-10 10:31:08 UTC (rev 5605)
@@ -7,7 +7,7 @@
 structure RanQD1Gen :> RANDOM_GEN where type RNG.Seed.t = Word32.t =
    MkRandomGen
       ((* <-- SML/NJ workarounds *)
-       open Fn
+       open TopLevel
        infixr 4 />
        (* SML/NJ workarounds --> *)
        type t = Word32.t