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/ppvernac.ml | |
| 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/ppvernac.ml')
| -rw-r--r-- | parsing/ppvernac.ml | 4 |
1 files changed, 2 insertions, 2 deletions
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() |