diff options
| author | herbelin | 2009-08-11 09:57:57 +0000 |
|---|---|---|
| committer | herbelin | 2009-08-11 09:57:57 +0000 |
| commit | bfb1a63aa4d5b3d2d3cc0da1ba44e1e9ab66f5a3 (patch) | |
| tree | 6041e560be432189dcecd376edca016abb9cb2ae /parsing | |
| parent | 4564079be1b9e3ecdbe988e726d8e77d3059d02e (diff) | |
Add support for "Infix ... := constr" instead of just "Infix ... := ref".
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12269 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/g_vernac.ml4 | 2 | ||||
| -rw-r--r-- | parsing/ppvernac.ml | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/parsing/g_vernac.ml4 b/parsing/g_vernac.ml4 index 41ac3b5104..ea686e5a3d 100644 --- a/parsing/g_vernac.ml4 +++ b/parsing/g_vernac.ml4 @@ -811,7 +811,7 @@ GEXTEND Gram VernacArgumentsScope (use_non_locality (),qid,scl) | IDENT "Infix"; local = obsolete_locality; - op = ne_string; ":="; p = global; + op = ne_string; ":="; p = constr; modl = [ "("; l = LIST1 syntax_modifier SEP ","; ")" -> l | -> [] ]; sc = OPT [ ":"; sc = IDENT -> sc ] -> VernacInfix (enforce_locality_of local,(op,modl),p,sc) diff --git a/parsing/ppvernac.ml b/parsing/ppvernac.ml index 049a227eb0..3bf2f0ede2 100644 --- a/parsing/ppvernac.ml +++ b/parsing/ppvernac.ml @@ -508,7 +508,7 @@ let rec pr_vernac = function ++ spc() ++ str"[" ++ prlist_with_sep sep pr_opt_scope scl ++ str"]" | VernacInfix (local,(s,mv),q,sn) -> (* A Verifier *) hov 0 (hov 0 (str"Infix " ++ pr_locality local - ++ qs s ++ str " :=" ++ spc() ++ pr_reference q) ++ + ++ qs s ++ str " :=" ++ pr_constrarg q) ++ pr_syntax_modifiers mv ++ (match sn with | None -> mt() @@ -521,7 +521,7 @@ let rec pr_vernac = function let s' = String.sub s 1 (n-2) in if String.contains s' '\'' then qs s else str s' else qs s in - hov 2( str"Notation" ++ spc() ++ pr_locality local ++ ps ++ + hov 2 (str"Notation" ++ spc() ++ pr_locality local ++ ps ++ str " :=" ++ pr_constrarg c ++ pr_syntax_modifiers l ++ (match opt with | None -> mt() |