X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=ghc%2Frts%2FPrimOps.cmm;h=d4a54c65286f415321465d7b808625b4008ebea3;hb=aa07427aca52bcf2d76b8967aa27fe23fc8803bc;hp=4d513946fdc401c8c59e3e70f4a470fd1bc906b1;hpb=dcb182ad063e95c9075bf2c8e34e7215fc38ef3d;p=ghc-hetmet.git

diff --git a/ghc/rts/PrimOps.cmm b/ghc/rts/PrimOps.cmm
index 4d51394..d4a54c6 100644
--- a/ghc/rts/PrimOps.cmm
+++ b/ghc/rts/PrimOps.cmm
@@ -933,9 +933,9 @@ isEmptyMVarzh_fast
     /* args: R1 = MVar closure */
 
     if (GET_INFO(R1) == stg_EMPTY_MVAR_info) {
-	RET_N(0);
-    } else {
 	RET_N(1);
+    } else {
+	RET_N(0);
     }
 }