X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fprelude%2Fprimops.txt;fp=ghc%2Fcompiler%2Fprelude%2Fprimops.txt;h=5ea03c46076b8369258de6ee80e0eede47f543ca;hb=b8644e3d49014e2f06db088936b643f9d62c7573;hp=1d3d99a0db9c8e11e33f7f539852da8661d9fd1f;hpb=45098d690dde0ee98a256ca05836384871b235c2;p=ghc-hetmet.git

diff --git a/ghc/compiler/prelude/primops.txt b/ghc/compiler/prelude/primops.txt
index 1d3d99a..5ea03c4 100644
--- a/ghc/compiler/prelude/primops.txt
+++ b/ghc/compiler/prelude/primops.txt
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------
--- $Id: primops.txt,v 1.16 2001/02/14 12:59:35 simonmar Exp $
+-- $Id: primops.txt,v 1.17 2001/02/15 17:22:15 sewardj Exp $
 --
 -- Primitive Operations
 --
@@ -1020,7 +1020,7 @@ primop  TryPutMVarOp "tryPutMVar#" GenPrimOp
    MVar# s a -> a -> State# s -> (# State# s, Int# #)
    with
    strictness       = { \ arity -> StrictnessInfo [wwPrim, wwLazy, wwPrim] False }
-   usage            = { mangle PutMVarOp [mkM, mkM, mkP] mkR }
+   usage            = { mangle TryPutMVarOp [mkM, mkM, mkP] mkR }
    has_side_effects = True
    out_of_line      = True