diff options
Diffstat (limited to 'parsing/printer.ml')
| -rw-r--r-- | parsing/printer.ml | 9 |
1 files changed, 7 insertions, 2 deletions
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) |