diff options
| author | herbelin | 2003-09-10 14:28:07 +0000 |
|---|---|---|
| committer | herbelin | 2003-09-10 14:28:07 +0000 |
| commit | 0141ad09a89784de0d8b3d02f7574e2a7f29bd7e (patch) | |
| tree | 90a1ec1461e1036fbbfd5f6662a6c9b1904521bd /parsing | |
| parent | 46ff8406c6999fa75558d9d306f13b05ab0cdc78 (diff) | |
Traduction de Distfix
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4344 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/g_basevernac.ml4 | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/parsing/g_basevernac.ml4 b/parsing/g_basevernac.ml4 index 1bd70679ff..0b815a0c61 100644 --- a/parsing/g_basevernac.ml4 +++ b/parsing/g_basevernac.ml4 @@ -294,7 +294,11 @@ GEXTEND Gram VernacInfix (local,ai,ni,op,p,b,v8,sc) | IDENT "Distfix"; local = locality; a = entry_prec; n = natural; s = STRING; p = global; sc = OPT [ ":"; sc = IDENT -> sc ] -> + let (a,s,c) = Metasyntax.translate_distfix a s p in + VernacNotation (local,c,Some(s,[SetLevel n;SetAssoc a]),None,sc) +(* VernacDistfix (local,a,n,s,p,sc) +*) | IDENT "Notation"; local = locality; s = IDENT; ":="; c = constr; l = [ "("; IDENT "only"; IDENT "parsing"; ")" -> [SetOnlyParsing] | -> [] ] -> |