aboutsummaryrefslogtreecommitdiff
path: root/toplevel/ccompile.ml
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 /toplevel/ccompile.ml
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 'toplevel/ccompile.ml')
-rw-r--r--toplevel/ccompile.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/ccompile.ml b/toplevel/ccompile.ml
index 416ea88c1b..8934385091 100644
--- a/toplevel/ccompile.ml
+++ b/toplevel/ccompile.ml
@@ -85,7 +85,7 @@ let ensure_exists f =
let compile opts copts ~echo ~f_in ~f_out =
let open Vernac.State in
let check_pending_proofs () =
- let pfs = Vernacstate.Proof_global.get_all_proof_names () in
+ let pfs = Vernacstate.Proof_global.get_all_proof_names () [@ocaml.warning "-3"] in
if not (CList.is_empty pfs) then
fatal_error (str "There are pending proofs: "
++ (pfs