[project @ 2000-01-23 09:55:17 by andy]

[ghc-hetmet.git] / ghc / lib / std / Random.lhs

diff --git a/ghc/lib/std/Random.lhs b/ghc/lib/std/Random.lhs
index 09ba145..0064315 100644 (file)
--- a/ghc/lib/std/Random.lhs
+++ b/ghc/lib/std/Random.lhs
@@ -242,7 +242,6 @@ stdNext (StdGen s1 s2) = (z', StdGen s1'' s2'')
                s2'  = 40692 * (s2 - k' * 52774) - k' * 3791
                s2'' = if s2' < 0 then s2' + 2147483399 else s2'
 
-#ifdef __HUGS__
 stdSplit            :: StdGen -> (StdGen, StdGen)
 stdSplit std@(StdGen s1 s2)
                      = (left, right)
@@ -258,10 +257,6 @@ stdSplit std@(StdGen s1 s2)
                                | otherwise        = s2 - 1
 
                         StdGen t1 t2 = snd (next std)
-#else
-stdSplit :: StdGen -> (StdGen, StdGen)
-stdSplit std@(StdGen s1 _) = (std, unsafePerformIO (mkStdRNG (fromInt s1)))
-#endif 
 \end{code}