diff options
| -rw-r--r-- | dev/include | 2 | ||||
| -rw-r--r-- | dev/top_printers.ml | 3 |
2 files changed, 5 insertions, 0 deletions
diff --git a/dev/include b/dev/include index 3011bcedf2..90c2a77d45 100644 --- a/dev/include +++ b/dev/include @@ -6,6 +6,8 @@ #cd ".";; #use "base_include";; +#install_printer (* pp_stdcmds *) pppp;; + #install_printer (* pattern *) pppattern;; #install_printer (* rawconstr *) pprawconstr;; diff --git a/dev/top_printers.ml b/dev/top_printers.ml index 27577c79cf..07dda42b85 100644 --- a/dev/top_printers.ml +++ b/dev/top_printers.ml @@ -34,6 +34,9 @@ let _ = Constrextern.print_evar_arguments := true let _ = set_bool_option_value (SecondaryTable ("Printing","Matching")) false let _ = Detyping.set_detype_anonymous (fun _ _ -> raise Not_found) +(* std_ppcmds *) +let pppp x = pp x + (* name printers *) let ppid id = pp (pr_id id) let pplab l = pp (pr_lab l) |