diff options
| author | herbelin | 2005-12-26 20:07:21 +0000 |
|---|---|---|
| committer | herbelin | 2005-12-26 20:07:21 +0000 |
| commit | 52f4136ecf452162adb55c8de031b73c97dcdbac (patch) | |
| tree | 8ac0a4c3584025a44067c6a96c6ce9d92ca93e78 /parsing/printer.ml | |
| parent | 099fb1b4c5084bb899e4910e42c971cdfa81e1aa (diff) | |
Renommage des Pp*new en Pp* (et déplacement dans parsing); renommage des G_*new en G_*.ml + autres petites modifications liées à suppression du traducteur
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7740 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing/printer.ml')
| -rw-r--r-- | parsing/printer.ml | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/parsing/printer.ml b/parsing/printer.ml index a87415d950..7efea20a86 100644 --- a/parsing/printer.ml +++ b/parsing/printer.ml @@ -25,6 +25,7 @@ open Evd open Proof_type open Refiner open Pfedit +open Ppconstr let emacs_str s = if !Options.print_emacs then s else "" @@ -33,13 +34,13 @@ let emacs_str s = if !Options.print_emacs then s else "" (* [at_top] means ids of env must be avoided in bound variables *) let prterm_core at_top env t = - Ppconstrnew.pr_lconstr (Constrextern.extern_constr at_top env t) + pr_lconstr (Constrextern.extern_constr at_top env t) let prtype_core at_top env t = - Ppconstrnew.pr_lconstr (Constrextern.extern_type at_top env t) + pr_lconstr (Constrextern.extern_type at_top env t) let pr_cases_pattern t = - Ppconstrnew.pr_cases_pattern (Constrextern.extern_cases_pattern Idset.empty t) + pr_cases_pattern (Constrextern.extern_cases_pattern Idset.empty t) let pr_pattern_env tenv env t = - Ppconstrnew.pr_constr (Constrextern.extern_pattern tenv env t) + pr_constr (Constrextern.extern_pattern tenv env t) (**********************************************************************) (* Derived printers *) @@ -70,7 +71,7 @@ let pr_evaluable_reference ref = pr_global ref' let pr_rawterm t = - Ppconstrnew.pr_lconstr (Constrextern.extern_rawconstr Idset.empty t) + pr_lconstr (Constrextern.extern_rawconstr Idset.empty t) open Pattern @@ -284,10 +285,10 @@ let pr_nth_open_subgoal n = (* Elementary tactics *) let print_constr8 t = - Ppconstrnew.pr_constr (Constrextern.extern_constr false (Global.env()) t) + pr_constr (Constrextern.extern_constr false (Global.env()) t) let print_lconstr8 t = - Ppconstrnew.pr_lconstr (Constrextern.extern_constr false (Global.env()) t) + pr_lconstr (Constrextern.extern_constr false (Global.env()) t) let pr_prim_rule = function | Intro id -> |