summaryrefslogtreecommitdiff
path: root/rts/PrimOps.cmm
diff options
context:
space:
mode:
authorIan Lynagh <ian@well-typed.com>2013-06-09 15:52:29 +0100
committerIan Lynagh <ian@well-typed.com>2013-06-09 15:52:29 +0100
commit68ba223fb3650630b4d2ec699ec72d5e73d4146b (patch)
tree32218c5e9f0b0060c36212163ae0a2ffdb8b6849 /rts/PrimOps.cmm
parentf7c8c3d47be1ced027847d832a1b57ca4a7b223d (diff)
downloadhaskell-68ba223fb3650630b4d2ec699ec72d5e73d4146b.tar.gz
Fix a comment
Diffstat (limited to 'rts/PrimOps.cmm')
-rw-r--r--rts/PrimOps.cmm4
1 files changed, 1 insertions, 3 deletions
diff --git a/rts/PrimOps.cmm b/rts/PrimOps.cmm
index e292e0adbb..230b9292f8 100644
--- a/rts/PrimOps.cmm
+++ b/rts/PrimOps.cmm
@@ -1289,9 +1289,7 @@ stg_tryTakeMVarzh ( P_ mvar /* :: MVar a */ )
info = GET_INFO(mvar);
#endif
- /* If the MVar is empty, put ourselves on its blocking queue,
- * and wait until we're woken up.
- */
+ /* If the MVar is empty, return 0. */
if (StgMVar_value(mvar) == stg_END_TSO_QUEUE_closure) {
#if defined(THREADED_RTS)
unlockClosure(mvar, info);