diff options
| author | letouzey | 2002-11-04 01:08:07 +0000 |
|---|---|---|
| committer | letouzey | 2002-11-04 01:08:07 +0000 |
| commit | 18891a3cbbec467d5872cab4329fa7f6cdb9fe80 (patch) | |
| tree | 4ccc7eca2704777009032a980ef21e06a37a3cb4 /dev/top_printers.ml | |
| 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
Diffstat (limited to 'dev/top_printers.ml')
| -rw-r--r-- | dev/top_printers.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/dev/top_printers.ml b/dev/top_printers.ml index fb342b221b..b74cd395a0 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) |