Commit c54cc72f authored by Robbert Krebbers's avatar Robbert Krebbers

Bump Iris.

parent 7a6874f2
...@@ -9,6 +9,6 @@ build: [make "-j%{jobs}%"] ...@@ -9,6 +9,6 @@ build: [make "-j%{jobs}%"]
install: [make "install"] install: [make "install"]
remove: ["rm" "-rf" "%{lib}%/coq/user-contrib/iris_examples"] remove: ["rm" "-rf" "%{lib}%/coq/user-contrib/iris_examples"]
depends: [ depends: [
"coq-iris" { (= "dev.2019-03-26.0.0495f119") | (= "dev") } "coq-iris" { (= "dev.2019-04-07.4.4760ad33") | (= "dev") }
"coq-autosubst" { = "dev.coq86" } "coq-autosubst" { = "dev.coq86" }
] ]
...@@ -9,7 +9,7 @@ Definition new_stack: val := λ: <>, ref (ref NONE). ...@@ -9,7 +9,7 @@ Definition new_stack: val := λ: <>, ref (ref NONE).
Definition push: val := Definition push: val :=
rec: "push" "s" "x" := rec: "push" "s" "x" :=
let: "hd" := !"s" in let: "hd" := !"s" in
let: "s'" := ref SOME ("x", "hd") in let: "s'" := ref (SOME ("x", "hd")) in
if: CAS "s" "hd" "s'" if: CAS "s" "hd" "s'"
then #() then #()
else "push" "s" "x". else "push" "s" "x".
......
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