diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-08-31 18:21:20 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-08-31 18:21:20 +0000 |
| commit | f14ef53fa0fdaa892ace0bfb166bd15ad1d25f85 (patch) | |
| tree | d70911023aa8bc669e2e419ec5c96430126d3b45 | |
| parent | 97744e386938a239eea19c8ae7eddfc7f9cad6ee (diff) | |
Affichage des inductifs en v8
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4281 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | parsing/prettyp.ml | 5 | ||||
| -rw-r--r-- | parsing/printer.ml | 9 |
2 files changed, 11 insertions, 3 deletions
diff --git a/parsing/prettyp.ml b/parsing/prettyp.ml index f781ff755..5ccf11bdb 100644 --- a/parsing/prettyp.ml +++ b/parsing/prettyp.ml @@ -97,7 +97,10 @@ let print_params env params = if List.length params = 0 then (mt ()) else - (str "[" ++ pr_rel_context env params ++ str "]" ++ brk(1,2)) + if !Options.v7 then + (str "[" ++ pr_rel_context env params ++ str "]" ++ brk(1,2)) + else + (pr_rel_context env params ++ brk(1,2)) let rec contract_types = function | [] -> [] diff --git a/parsing/printer.ml b/parsing/printer.ml index 06cec0db0..fbae23c2d 100644 --- a/parsing/printer.ml +++ b/parsing/printer.ml @@ -179,11 +179,16 @@ let pr_named_context_of env = let pr_rel_context env rel_context = let rec prec env = function | [] -> (mt ()) - | [b] -> pr_rel_decl env b + | [b] -> + if !Options.v7 then pr_rel_decl env b + else str "(" ++ pr_rel_decl env b ++ str")" | b::rest -> let pb = pr_rel_decl env b in let penvtl = prec (push_rel b env) rest in - (pb ++ str";" ++ spc () ++ penvtl) + if !Options.v7 then + (pb ++ str";" ++ spc () ++ penvtl) + else + (str "(" ++ pb ++ str")" ++ spc () ++ penvtl) in prec env (List.rev rel_context) |