diff options
| author | Maxime Dénès | 2017-06-07 11:23:41 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2017-06-07 11:23:41 +0200 |
| commit | 77e4a3712dff87e5941dd93ebfa8028039ab0715 (patch) | |
| tree | ca9db76e334d40fb19938b014a20c3691866092a /vernac | |
| parent | 3e29266b1e2dfb970ca77fb5910b6a5860d4ad1a (diff) | |
| parent | 48476a32fa9221b216074695cceeaa0b34fc659b (diff) | |
Merge PR#717: [proof] Deprecate "proof mode" API
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 1332a7052b..69492759be 100644 --- a/vernac/vernacentries.ml +++ b/vernac/vernacentries.ml @@ -1868,8 +1868,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 -> @@ -2052,7 +2052,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) |