aboutsummaryrefslogtreecommitdiff
path: root/dev
diff options
context:
space:
mode:
authorEmilio Jesus Gallego Arias2019-04-09 14:25:48 +0200
committerEmilio Jesus Gallego Arias2019-04-09 20:23:44 +0200
commit45684eb8f1202665dc33bd98f1dbd46ae572757e (patch)
treeed564a764c4d14262bb5345d5e9a6bbf2d79c9dc /dev
parente3e3e6949f1c80abec9942ee0d258b58e5a7d382 (diff)
[api] [proof] Alert users that `Vernacstate.Proof_global` is not to be used.
We alert users that `Vernacstate.Proof_global` is a Coq internal module and should not be used to workaround lack of state threading.
Diffstat (limited to 'dev')
-rw-r--r--dev/top_printers.ml1
1 files changed, 1 insertions, 0 deletions
diff --git a/dev/top_printers.ml b/dev/top_printers.ml
index 74be300134..816316487c 100644
--- a/dev/top_printers.ml
+++ b/dev/top_printers.ml
@@ -65,6 +65,7 @@ let get_current_context () =
with Vernacstate.Proof_global.NoCurrentProof ->
let env = Global.env() in
Evd.from_env env, env
+ [@@ocaml.warning "-3"]
(* term printers *)
let envpp pp = let sigma,env = get_current_context () in pp env sigma