[commit: ghc] ghc-lwc2: Renamed Thread-local storage to SCont-local storage (0839ba5)

[Ian Lynagh]

Repository : http://darcs.haskell.org/ghc.git/

On branch  : ghc-lwc2

http://hackage.haskell.org/trac/ghc/changeset/0839ba5798504224b3bf7fc5531583a623e674ff

>---------------------------------------------------------------

commit 0839ba5798504224b3bf7fc5531583a623e674ff
Author: KC Sivaramakrishnan <chandras at cs.purdue.edu>
Date:   Wed Feb 27 11:47:37 2013 -0500

    Renamed Thread-local storage to SCont-local storage

>---------------------------------------------------------------

 libraries/base/LwConc/Substrate.hs | 4 +---
 libraries/random                   | 2 +-
 2 files changed, 2 insertions(+), 4 deletions(-)

diff --git a/libraries/base/LwConc/Substrate.hs b/libraries/base/LwConc/Substrate.hs
index 1a9d253..3717ffa 100644
--- a/libraries/base/LwConc/Substrate.hs
+++ b/libraries/base/LwConc/Substrate.hs
@@ -384,7 +384,7 @@ getSContId (SCont sc) = PTM $ \s ->
   case getSContId# sc s of (# s, i #) -> (# s, (I# i) #)
 
 -----------------------------------------------------------------------------------
--- Thread-local Storage (TLS)
+-- SCont-local Storage (SLS)
 -----------------------------------------------------------------------------------
 
 setSLS :: SCont -> Dynamic -> IO ()
@@ -394,8 +394,6 @@ setSLS (SCont sc) v = IO $ \s ->
 getSLS :: SCont -> PTM Dynamic
 getSLS (SCont sc) = PTM $ \s -> getSLS# sc s
 
-tlsPair = (setSLS, getSLS)
-
 -----------------------------------------------------------------------------------
 -- yieldControlAction and friends..
 -----------------------------------------------------------------------------------
diff --git a/libraries/random b/libraries/random
index 4b68afd..69bfde2 160000
--- a/libraries/random
+++ b/libraries/random
@@ -1 +1 @@
-Subproject commit 4b68afd3356674f12a67a4e381fa9becd704fab2
+Subproject commit 69bfde219bab869729fdbe9c1496371f912bf41e