aboutsummaryrefslogtreecommitdiff
path: root/dev/top_printers.ml
diff options
context:
space:
mode:
authorEmilio Jesus Gallego Arias2020-02-22 15:22:05 -0500
committerEmilio Jesus Gallego Arias2020-02-22 15:22:05 -0500
commitde66463971d96cb5d2a1d1379d42e9187eb4fd0d (patch)
tree94aeca1a32e53d657a8e3b9bf77fec99af868dfb /dev/top_printers.ml
parentfd67afe0f7c55799ae0a14d78f1007a0360bd552 (diff)
parentcece955c5ed3d044d0d23808c3ea93114febe8b0 (diff)
Merge PR #11638: Add debugger printer for type GlobEnv.t
Reviewed-by: ejgallego
Diffstat (limited to 'dev/top_printers.ml')
-rw-r--r--dev/top_printers.ml2
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() ++