From 72f47973b860c8074aa976759ee1adce993dac49 Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Thu, 24 Aug 2017 18:42:21 +0200
Subject: Fix the semantics of fail, as it should enter the goal.

---
 theories/Notations.v | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/theories/Notations.v b/theories/Notations.v
index 62d5d65d7c..d2c7059985 100644
--- a/theories/Notations.v
+++ b/theories/Notations.v
@@ -27,7 +27,7 @@ match Control.case t with
   Control.plus (fun _ => s x) (fun e => s (k e))
 end.
 
-Ltac2 fail0 (_ : unit) := Control.zero Tactic_failure.
+Ltac2 fail0 (_ : unit) := Control.enter (fun _ => Control.zero Tactic_failure).
 
 Ltac2 Notation fail := fail0 ().
 
-- 
cgit v1.2.3