[MLton-commit] r5550

[Vesa Karvonen]

Catching up with extended-basis.

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

U   mltonlib/trunk/com/ssh/misc-util/unstable/ranqd1-gen.sml

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

Modified: mltonlib/trunk/com/ssh/misc-util/unstable/ranqd1-gen.sml
===================================================================
--- mltonlib/trunk/com/ssh/misc-util/unstable/ranqd1-gen.sml	2007-05-07 17:14:16 UTC (rev 5549)
+++ mltonlib/trunk/com/ssh/misc-util/unstable/ranqd1-gen.sml	2007-05-08 14:54:03 UTC (rev 5550)
@@ -18,7 +18,7 @@
           val (value, seed) = Iso.<--> (Iso.swap Word.isoLarge, Word32.isoLarge)
           val next = Misc.ranqd1
           fun split w = #2 o Misc.psdes /> seed w
-          val maxValue = value Word32.maxWord)
+          val maxValue = value Word32.maxValue)
    open G
    val make = id
 end