diff options
| author | Hugo Herbelin | 2020-02-20 01:49:17 +0100 |
|---|---|---|
| committer | Hugo Herbelin | 2020-02-20 01:49:17 +0100 |
| commit | cece955c5ed3d044d0d23808c3ea93114febe8b0 (patch) | |
| tree | 3f99cf7c7a3f9662adb786764e588101455a9ab0 /dev/top_printers.ml | |
| parent | 2b72b403d82c15d0420603142e14ab50c7e590c1 (diff) | |
Adding a printer for GlobEnv in ocamldebug.
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 f640a33773..e8129938a1 100644 --- a/dev/top_printers.ml +++ b/dev/top_printers.ml @@ -247,6 +247,8 @@ let ppenv e = pp (str "[" ++ pr_named_context_of e Evd.empty ++ str "]" ++ spc() ++ str "[" ++ pr_rel_context e Evd.empty (rel_context e) ++ str "]") +let ppglobenv e = ppenv (GlobEnv.env e) + let ppenvwithcst e = pp (str "[" ++ pr_named_context_of e Evd.empty ++ str "]" ++ spc() ++ str "[" ++ pr_rel_context e Evd.empty (rel_context e) ++ str "]" ++ spc() ++ |