X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FPrimOps.cmm;h=dbaaae0fa2631d06955626149c1b5b221076aae9;hb=45c35148be308b3290f1c14240d406f1cb1af166;hp=153baaaae52d803638d4c2567d3353f4cc7e1211;hpb=73566e25d75588185b0581722406da5c48965c51;p=ghc-hetmet.git

diff --git a/rts/PrimOps.cmm b/rts/PrimOps.cmm
index 153baaa..dbaaae0 100644
--- a/rts/PrimOps.cmm
+++ b/rts/PrimOps.cmm
@@ -1200,7 +1200,7 @@ atomicallyzh_fast
 
   /* Nested transactions are not allowed; raise an exception */
   if (old_trec != NO_TREC) {
-     R1 = GHCziIOBase_NestedAtomically_closure;
+     R1 = base_GHCziIOBase_NestedAtomically_closure;
      jump raisezh_fast;
   }