From 95477bc8750375047d0c86dfbfda41ed221cac3c Mon Sep 17 00:00:00 2001
From: herbelin
Date: Mon, 25 Nov 2002 12:24:43 +0000
Subject: Syntaxe delimiteurs

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3283 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 toplevel/metasyntax.ml | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/toplevel/metasyntax.ml b/toplevel/metasyntax.ml
index 8efa576f0d..29324cb5fa 100644
--- a/toplevel/metasyntax.ml
+++ b/toplevel/metasyntax.ml
@@ -664,12 +664,11 @@ let (inDelim,outDelim) =
 
 let make_delimiter_rule key typ =
   let e = Nameops.make_ident "e" None in
-  let m = key^":" in
-  let symbols = [Terminal "`"; Terminal m; NonTerminal e; Terminal "`"] in
+  let symbols = [Terminal ("'"^key^":"); NonTerminal e; Terminal "'"] in
   make_production [e,typ] symbols
 
 let add_delimiters scope key =
   let gram_rule = make_delimiter_rule key (ETConstr ((0,E),Some 0)) in
   let pat_gram_rule = make_delimiter_rule key ETPattern in
-  let dlms = ("`"^key^":", "`") in
+  let dlms = ("'"^key^":", "'") in
   Lib.add_anonymous_leaf (inDelim(gram_rule,pat_gram_rule,scope,dlms))
-- 
cgit v1.2.3