diff options
| author | Arnaud Spiwack | 2014-11-07 19:15:51 +0100 |
|---|---|---|
| committer | Arnaud Spiwack | 2014-11-19 10:11:46 +0100 |
| commit | bc69260e1427d77e5a3faf2f14e4bc9b3acb354f (patch) | |
| tree | 523ea0e29cbd0d595cd7a065b50e447abdbaf2ca | |
| parent | 15c8affb8643d1d6985311b3e303fa41f58f7d24 (diff) | |
Print [uconstr] in genargs.
| -rw-r--r-- | printing/pptactic.ml | 6 | ||||
| -rw-r--r-- | printing/printer.ml | 3 | ||||
| -rw-r--r-- | printing/printer.mli | 1 |
3 files changed, 10 insertions, 0 deletions
diff --git a/printing/pptactic.ml b/printing/pptactic.ml index 46aad3bc2b..caba9609b8 100644 --- a/printing/pptactic.ml +++ b/printing/pptactic.ml @@ -1426,6 +1426,12 @@ let () = ; Genprint.register_print0 Constrarg.wit_sort pr_glob_sort pr_glob_sort pr_sort; + Genprint.register_print0 + Constrarg.wit_uconstr + Ppconstr.pr_constr_expr + (fun (c,_) -> Printer.pr_glob_constr c) + Printer.pr_closed_glob + ; Genprint.register_print0 Stdarg.wit_int int int int; Genprint.register_print0 Stdarg.wit_bool pr_bool pr_bool pr_bool; Genprint.register_print0 Stdarg.wit_unit pr_unit pr_unit pr_unit; diff --git a/printing/printer.ml b/printing/printer.ml index 0fea782974..e21c9a61b9 100644 --- a/printing/printer.ml +++ b/printing/printer.ml @@ -124,6 +124,9 @@ let pr_glob_constr c = let pr_closed_glob_env env sigma c = pr_constr_expr (extern_closed_glob false env sigma c) +let pr_closed_glob c = + let (sigma, env) = get_current_context () in + pr_closed_glob_env env sigma c let pr_lconstr_pattern_env env sigma c = pr_lconstr_pattern_expr (extern_constr_pattern (Termops.names_of_rel_context env) sigma c) diff --git a/printing/printer.mli b/printing/printer.mli index baa81c9fe4..ac35a324a4 100644 --- a/printing/printer.mli +++ b/printing/printer.mli @@ -60,6 +60,7 @@ val pr_type_env : env -> evar_map -> types -> std_ppcmds val pr_type : types -> std_ppcmds val pr_closed_glob_env : env -> evar_map -> closed_glob_constr -> std_ppcmds +val pr_closed_glob : closed_glob_constr -> std_ppcmds val pr_ljudge_env : env -> evar_map -> unsafe_judgment -> std_ppcmds * std_ppcmds val pr_ljudge : unsafe_judgment -> std_ppcmds * std_ppcmds |