[project @ 1999-01-14 18:12:47 by sof]

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

diff --git a/ghc/lib/std/PrelWeak.lhs b/ghc/lib/std/PrelWeak.lhs
index 7d008a4..cbe510a 100644 (file)
--- a/ghc/lib/std/PrelWeak.lhs
+++ b/ghc/lib/std/PrelWeak.lhs
@@ -23,15 +23,15 @@ mkWeak  :: k                                -- key
        -> IO (Weak v)                  -- weak pointer
 
 mkWeak key val finaliser = IO $ \s ->
-   case mkWeak# key val finaliser s of { (# s, w #) ->
-   (# s, Weak w #) }
+   case mkWeak# key val finaliser s of { (# s1, w #) ->
+   (# s1, Weak w #) }
 
 deRefWeak :: Weak v -> IO (Maybe v)
 deRefWeak (Weak w) = IO $ \s ->
    case deRefWeak# w s of
-       (# s, flag, w #) -> case flag of
-                               0# -> (# s, Nothing #)
-                               _  -> (# s, Just w #)
+       (# s1, flag, p #) -> case flag of
+                               0# -> (# s1, Nothing #)
+                               _  -> (# s1, Just p #)
 
 mkWeakPtr :: k -> IO () -> IO (Weak k)
 mkWeakPtr key finaliser = mkWeak key key finaliser