diff --git a/opam b/opam index e4c60130e8f773e7c33018470a2b92774f7c8e62..3528d60cdc44367666a2af295e58a97a08f9579d 100644 --- a/opam +++ b/opam @@ -9,6 +9,6 @@ build: [make "-j%{jobs}%"] install: [make "install"] remove: ["rm" "-rf" "%{lib}%/coq/user-contrib/iris_examples"] depends: [ - "coq-iris" { (= "dev.2019-03-26.0.0495f119") | (= "dev") } + "coq-iris" { (= "dev.2019-04-07.4.4760ad33") | (= "dev") } "coq-autosubst" { = "dev.coq86" } ] diff --git a/theories/logatom/treiber.v b/theories/logatom/treiber.v index eba0baed092a7a2f07d149274b7fa7fe56d17081..3eae8c7d34122784d2c83042eaf476f14e26b88e 100644 --- a/theories/logatom/treiber.v +++ b/theories/logatom/treiber.v @@ -9,7 +9,7 @@ Definition new_stack: val := λ: <>, ref (ref NONE). Definition push: val := rec: "push" "s" "x" := let: "hd" := !"s" in - let: "s'" := ref SOME ("x", "hd") in + let: "s'" := ref (SOME ("x", "hd")) in if: CAS "s" "hd" "s'" then #() else "push" "s" "x".