From eb9ee80c98dee1eeb30a1498f8720103b3580ddf Mon Sep 17 00:00:00 2001
From: herbelin
Date: Thu, 14 Aug 2003 09:46:40 +0000
Subject: Ajout token '!' pour correctness

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4269 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 parsing/g_constrnew.ml4 | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/parsing/g_constrnew.ml4 b/parsing/g_constrnew.ml4
index f8bb62a22f..573ac2dd32 100644
--- a/parsing/g_constrnew.ml4
+++ b/parsing/g_constrnew.ml4
@@ -26,6 +26,9 @@ let constr_kw =
 let _ = List.iter (fun s -> Lexer.add_token("",s)) constr_kw
 let _ = Options.v7 := false
 
+(* For Correctness syntax; doesn't work if in psyntax (freeze pb?)  *)
+let _ = Lexer.add_token ("","!")
+
 let pair loc =
   Qualid (loc, Libnames.qualid_of_string "Coq.Init.Datatypes.pair")
 
-- 
cgit v1.2.3