From 7c6d21c6eabcff6dc15b405aecb3d57202eeaea7 Mon Sep 17 00:00:00 2001
From: Robbert Krebbers <mail@robbertkrebbers.nl>
Date: Thu, 25 Apr 2019 14:19:59 +0200
Subject: [PATCH] Bump.
---
opam | 2 +-
theories/lang/notation.v | 4 ++--
2 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/opam b/opam
index 84358d8a..2a2cd4bd 100644
--- a/opam
+++ b/opam
@@ -10,5 +10,5 @@ build: [make "-j%{jobs}%"]
install: [make "install"]
remove: [ "sh" "-c" "rm -rf '%{lib}%/coq/user-contrib/lrust'" ]
depends: [
- "coq-gpfsl" { (= "dev.2019-03-07.0.fffa7c4e") | (= "dev") }
+ "coq-gpfsl" { (= "dev.2019-04-25.0.8e1ed3d2") | (= "dev") }
]
diff --git a/theories/lang/notation.v b/theories/lang/notation.v
index 18bfd401..40aed844 100644
--- a/theories/lang/notation.v
+++ b/theories/lang/notation.v
@@ -10,10 +10,10 @@ Notation "'funrec:' f xl := e" := (rec: f ("return"::xl) := e)%V
Notation "'return:'" := "return" : expr_scope.
Notation "'letcont:' k xl := e1 'in' e2" :=
- ((Lam (@cons binder k%bind nil) e2%E) [Rec k%bind xl%bind e1%E])
+ ((Lam (@cons binder k%binder nil) e2%E) [Rec k%binder xl%binder e1%E])
(at level 102, k, xl at level 1, e1, e2 at level 150) : expr_scope.
Notation "'withcont:' k1 ':' e1 'cont:' k2 xl := e2" :=
- ((Lam (@cons binder k1%bind nil) e1%E) [Rec k2%bind ((fun _ : eq k1%bind k2%bind => xl%bind) eq_refl) e2%E])
+ ((Lam (@cons binder k1%binder nil) e1%E) [Rec k2%binder ((fun _ : eq k1%binder k2%binder => xl%binder) eq_refl) e2%E])
(only parsing, at level 151, k1, k2, xl at level 1, e2 at level 150) : expr_scope.
Notation "'call:' f args → k" := (f (@cons expr (λ: ["_r"], Endlft ;; k ["_r"]) args))%E
--
GitLab