diff options
Diffstat (limited to 'dev')
| -rw-r--r-- | dev/db | 3 | ||||
| -rw-r--r-- | dev/include | 4 | ||||
| -rw-r--r-- | dev/top_printers.ml | 8 |
3 files changed, 1 insertions, 14 deletions
@@ -11,9 +11,6 @@ install_printer Top_printers.prkn install_printer Top_printers.prcon install_printer Top_printers.prsp install_printer Top_printers.prqualid -install_printer Top_printers.prast -install_printer Top_printers.prastpat -install_printer Top_printers.prastpatl install_printer Top_printers.ppbigint install_printer Top_printers.pppattern diff --git a/dev/include b/dev/include index eabf79a48..d1b5a717b 100644 --- a/dev/include +++ b/dev/include @@ -4,10 +4,6 @@ #cd ".";; #use "base_include";; -#install_printer (* ast *) prast;; -#install_printer (* pat *) prastpat;; -#install_printer (* patlist *) prastpatl;; - #install_printer (* pattern *) pppattern;; #install_printer (* rawconstr *) pprawterm;; diff --git a/dev/top_printers.ml b/dev/top_printers.ml index e8dffb437..6a3c19c5f 100644 --- a/dev/top_printers.ml +++ b/dev/top_printers.ml @@ -10,7 +10,6 @@ open System open Pp -open Ast open Names open Libnames open Nameops @@ -54,11 +53,6 @@ let ppbigint n = pp (Bigint.pr_bigint n);; let pP s = pp (hov 0 s) -let prast c = pp(print_ast c) - -let prastpat c = pp(print_astpat c) -let prastpatl c = pp(print_astlpat c) - let safe_prglobal = function | ConstRef kn -> pp (str "CONSTREF(" ++ pr_con kn ++ str ")") | IndRef (kn,i) -> pp (str "INDREF(" ++ pr_kn kn ++ str "," ++ @@ -107,7 +101,7 @@ let ppenv e = pp (str "[" ++ pr_named_context_of e ++ str "]" ++ spc() ++ str "[" ++ pr_rel_context e (rel_context e) ++ str "]") -let pptac = (fun x -> pp(Pptactic.pr_glob_tactic x)) +let pptac = (fun x -> pp(Pptacticnew.pr_glob_tactic (Global.env()) x)) let pr_obj obj = Format.print_string (Libobject.object_tag obj) |