diff options
| author | herbelin | 2003-08-31 18:21:20 +0000 |
|---|---|---|
| committer | herbelin | 2003-08-31 18:21:20 +0000 |
| commit | f14ef53fa0fdaa892ace0bfb166bd15ad1d25f85 (patch) | |
| tree | d70911023aa8bc669e2e419ec5c96430126d3b45 /parsing/prettyp.ml | |
| 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
Diffstat (limited to 'parsing/prettyp.ml')
| -rw-r--r-- | parsing/prettyp.ml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/parsing/prettyp.ml b/parsing/prettyp.ml index f781ff7558..5ccf11bdb3 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 | [] -> [] |