diff options
| -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) |