diff options
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/prelude/primops.txt.pp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/prelude/primops.txt.pp b/compiler/prelude/primops.txt.pp index 129d17bc5b..f31a237189 100644 --- a/compiler/prelude/primops.txt.pp +++ b/compiler/prelude/primops.txt.pp @@ -1717,7 +1717,7 @@ primop TryPutMVarOp "tryPutMVar#" GenPrimOp out_of_line = True has_side_effects = True -primop AtomicReadMVarOp "atomicReadMVar#" GenPrimOp +primop ReadMVarOp "readMVar#" GenPrimOp MVar# s a -> State# s -> (# State# s, a #) {If {\tt MVar\#} is empty, block until it becomes full. Then read its contents without modifying the MVar, without possibility @@ -1726,7 +1726,7 @@ primop AtomicReadMVarOp "atomicReadMVar#" GenPrimOp out_of_line = True has_side_effects = True -primop TryAtomicReadMVarOp "tryAtomicReadMVar#" GenPrimOp +primop TryReadMVarOp "tryReadMVar#" GenPrimOp MVar# s a -> State# s -> (# State# s, Int#, a #) {If {\tt MVar\#} is empty, immediately return with integer 0 and value undefined. Otherwise, return with integer 1 and contents of {\tt MVar\#}.} |