diff options
author | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-11-04 01:08:07 +0000 |
---|---|---|
committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-11-04 01:08:07 +0000 |
commit | 18891a3cbbec467d5872cab4329fa7f6cdb9fe80 (patch) | |
tree | 4ccc7eca2704777009032a980ef21e06a37a3cb4 | |
parent | 079f42ac05f7900001e2e77ce615103e089fa2b6 (diff) |
ajout d'un printer pour les global_reference
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3204 85f007b7-540e-0410-9357-904b9bb8a0f7
-rw-r--r-- | dev/include | 1 | ||||
-rw-r--r-- | dev/top_printers.ml | 2 |
2 files changed, 3 insertions, 0 deletions
diff --git a/dev/include b/dev/include index 84f45fb2a..830e5cb5e 100644 --- a/dev/include +++ b/dev/include @@ -28,3 +28,4 @@ #install_printer (* tactic *) pptac;; #install_printer (* object *) pr_obj;; +#install_printer (* global_reference *) prglobal;; diff --git a/dev/top_printers.ml b/dev/top_printers.ml index fb342b221..b74cd395a 100644 --- a/dev/top_printers.ml +++ b/dev/top_printers.ml @@ -40,6 +40,8 @@ let pprawterm = (fun x -> pp(pr_rawterm x)) let pppattern = (fun x -> pp(pr_pattern x)) let pptype = (fun x -> pp(prtype x)) +let prglobal = (fun x -> pp(pr_global x)) + let prid id = pp (pr_id id) let prlab l = pp (pr_lab l) |