Commit 0fccdf33 authored by Robbert Krebbers's avatar Robbert Krebbers

Fix wrong name in lock.

parent e5973e6f
......@@ -5,7 +5,8 @@ Import uPred.
Definition newlock : val := λ: <>, ref #false.
Definition acquire : val :=
rec: "lock" "l" := if: CAS '"l" #false #true then #() else '"lock" '"l".
rec: "acquire" "l" :=
if: CAS '"l" #false #true then #() else '"acquire" '"l".
Definition release : val := λ: "l", '"l" <- #false.
(** The CMRA we need. *)
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment