[project @ 2001-02-15 17:22:15 by sewardj]

[ghc-hetmet.git] / ghc / compiler / prelude / primops.txt

diff --git a/ghc/compiler/prelude/primops.txt b/ghc/compiler/prelude/primops.txt
index 1d3d99a..5ea03c4 100644 (file)
--- 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