/* -----------------------------------------------------------------------------
- * $Id: PrimOps.hc,v 1.39 2000/01/13 14:34:03 hwloidl Exp $
+ * $Id: PrimOps.hc,v 1.40 2000/01/14 11:45:21 hwloidl Exp $
*
* (c) The GHC Team, 1998-1999
*
if (mvar->head != (StgTSO *)&END_TSO_QUEUE_closure) {
ASSERT(mvar->head->why_blocked == BlockedOnMVar);
#if defined(GRAN)
-# error FixME
+ mvar->head = RET_STGCALL2(StgTSO *,unblockOne,mvar->head,mvar);
#elif defined(PAR)
// ToDo: check 2nd arg (mvar) is right
mvar->head = RET_STGCALL2(StgTSO *,unblockOne,mvar->head,mvar);