diff options
| author | msozeau | 2008-02-08 16:51:00 +0000 |
|---|---|---|
| committer | msozeau | 2008-02-08 16:51:00 +0000 |
| commit | a1a7cb88e85c33204dfb022cb5b9eb5c435366b1 (patch) | |
| tree | 464f986148704d91c10c2be95898c062828f5b28 | |
| parent | 09580d08476cfa3f50b8c9a347293525c9f022fc (diff) | |
Add printer for Pp.std_ppcmds...
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10531 85f007b7-540e-0410-9357-904b9bb8a0f7
| -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) |