From f14ef53fa0fdaa892ace0bfb166bd15ad1d25f85 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Sun, 31 Aug 2003 18:21:20 +0000
Subject: Affichage des inductifs en v8

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4281 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 parsing/printer.ml | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

(limited to 'parsing/printer.ml')

diff --git a/parsing/printer.ml b/parsing/printer.ml
index 06cec0db0b..fbae23c2d9 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)
 
-- 
cgit v1.2.3