diff options
Diffstat (limited to 'printing')
| -rw-r--r-- | printing/printer.ml | 8 | ||||
| -rw-r--r-- | printing/printer.mli | 1 |
2 files changed, 8 insertions, 1 deletions
diff --git a/printing/printer.ml b/printing/printer.ml index ed872afc67..7938b7bb0b 100644 --- a/printing/printer.ml +++ b/printing/printer.ml @@ -219,7 +219,7 @@ let pr_pattern t = pr_pattern_env (Global.env()) empty_names_context t*) (**********************************************************************) (* Contexts and declarations *) -let pr_var_decl env (id,c,typ) = +let pr_var_decl_skel pr_id env (id,c,typ) = let pbody = match c with | None -> (mt ()) | Some c -> @@ -231,6 +231,12 @@ let pr_var_decl env (id,c,typ) = let ptyp = (str" : " ++ pt) in (pr_id id ++ hov 0 (pbody ++ ptyp)) +let pr_var_decl env (id,c,typ) = + pr_var_decl_skel pr_id env (id,c,typ) + +let pr_var_list_decl env (l,c,typ) = + hov 0 (pr_var_decl_skel (fun ids -> prlist_with_sep pr_comma pr_id ids) env (l,c,typ)) + let pr_rel_decl env (na,c,typ) = let pbody = match c with | None -> mt () diff --git a/printing/printer.mli b/printing/printer.mli index aa949232ac..6be2080535 100644 --- a/printing/printer.mli +++ b/printing/printer.mli @@ -106,6 +106,7 @@ val pr_pconstructor : env -> pconstructor -> std_ppcmds val pr_ne_context_of : std_ppcmds -> env -> std_ppcmds val pr_var_decl : env -> named_declaration -> std_ppcmds +val pr_var_list_decl : env -> named_list_declaration -> std_ppcmds val pr_rel_decl : env -> rel_declaration -> std_ppcmds val pr_named_context : env -> named_context -> std_ppcmds |