From: ross <unknown>
Date: Tue, 16 Mar 2004 10:04:17 +0000 (+0000)
Subject: [project @ 2004-03-16 10:04:17 by ross]
X-Git-Tag: nhc98-1-18-release~351
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=490c6318435923c4f35883eb5e10f3daabd2ecee;p=ghc-base.git

[project @ 2004-03-16 10:04:17 by ross]
comment typo
---

diff --git a/GHC/Conc.lhs b/GHC/Conc.lhs
index 86ba270..8965188 100644
--- a/GHC/Conc.lhs
+++ b/GHC/Conc.lhs
@@ -216,7 +216,7 @@ takeMVar (MVar mvar#) = IO $ \ s# -> takeMVar# mvar# s#
 -- 'putMVar' will wait until it becomes empty.
 --
 -- If several threads are competing to fill the same 'MVar', one is
--- chosen to continue at random with the 'MVar' becomes empty.
+-- chosen to continue at random when the 'MVar' becomes empty.
 putMVar  :: MVar a -> a -> IO ()
 putMVar (MVar mvar#) x = IO $ \ s# ->
     case putMVar# mvar# x s# of