[project @ 2004-09-03 10:11:57 by simonmar]

[ghc-hetmet.git] / ghc / rts / PrimOps.cmm

diff --git a/ghc/rts/PrimOps.cmm b/ghc/rts/PrimOps.cmm
index 4d51394..d4a54c6 100644 (file)
--- 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);
     }
 }