diff options
| author |  Emilio Jesus Gallego Arias <e+git@x80.org> | 2017-05-31 18:39:44 +0200 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias <e+git@x80.org> | 2017-05-31 18:39:44 +0200 |
| commit | 48476a32fa9221b216074695cceeaa0b34fc659b (patch) | |
| tree | 8d5447cbbf7e52b94ae7aea83c639bf82663442f /vernac | |
| parent | eed90d1bd867dce59f6bf1b2bf769fff188f128b (diff) | |
[proof] Deprecate "proof mode" API
Any users of this API should coordinate with the ongoing work in PRs
numbered #459 and #566.
Diffstat (limited to 'vernac')
| -rw-r--r-- | vernac/vernacentries.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/vernac/vernacentries.ml b/vernac/vernacentries.ml index 6c1d64cfe..ca2cac7f9 100644 --- a/vernac/vernacentries.ml +++ b/vernac/vernacentries.ml @@ -1871,8 +1871,8 @@ exception End_of_input *) let vernac_load interp fname = let interp x = - let proof_mode = Proof_global.get_default_proof_mode_name () in - Proof_global.activate_proof_mode proof_mode; + let proof_mode = Proof_global.get_default_proof_mode_name () [@ocaml.warning "-3"] in + Proof_global.activate_proof_mode proof_mode [@ocaml.warning "-3"]; interp x in let parse_sentence = Flags.with_option Flags.we_are_parsing (fun po -> @@ -2055,7 +2055,7 @@ let interp ?proof ?loc locality poly c = | VernacProof (Some tac, Some l) -> Aux_file.record_in_aux_at ?loc "VernacProof" "tac:yes using:yes"; vernac_set_end_tac tac; vernac_set_used_variables l - | VernacProofMode mn -> Proof_global.set_proof_mode mn + | VernacProofMode mn -> Proof_global.set_proof_mode mn [@ocaml.warning "-3"] (* Extensions *) | VernacExtend (opn,args) -> Vernacinterp.call ?locality (opn,args) |