From d77604cb06fcc8e8f38ef979627aa7a7138ef0f2 Mon Sep 17 00:00:00 2001 From: Enrico Tassi Date: Wed, 22 May 2019 18:30:31 +0200 Subject: [vernac] remove VtMaybeOpenProof --- vernac/vernacentries.ml | 4 ---- vernac/vernacextend.ml | 1 - vernac/vernacextend.mli | 1 - 3 files changed, 6 deletions(-) (limited to 'vernac') diff --git a/vernac/vernacentries.ml b/vernac/vernacentries.ml index 949ddfc3ee..da9fa35202 100644 --- a/vernac/vernacentries.ml +++ b/vernac/vernacentries.ml @@ -2304,10 +2304,6 @@ let vernac_interp_phase c ~pstate = vernac_require_open_proof ~pstate (fun ~pstate -> f ~pstate:(Proof_global.get_current_pstate pstate); Proof_global.discard_current pstate) - | VtMaybeOpenProof f -> - let proof = f () in - let pstate = maybe_push ~ontop:pstate proof in - pstate | VtOpenProof f -> Some (push ~ontop:pstate (f ())) | VtModifyProof f -> diff --git a/vernac/vernacextend.ml b/vernac/vernacextend.ml index cf704206af..2d3443d30a 100644 --- a/vernac/vernacextend.ml +++ b/vernac/vernacextend.ml @@ -56,7 +56,6 @@ type vernac_classification = vernac_type * vernac_when type vernac_interp_phase = | VtDefault of (unit -> unit) | VtCloseProof of (pstate:Proof_global.t -> unit) - | VtMaybeOpenProof of (unit -> Proof_global.t option) | VtOpenProof of (unit -> Proof_global.t) | VtModifyProof of (pstate:Proof_global.t -> Proof_global.t) | VtReadProofOpt of (pstate:Proof_global.t option -> unit) diff --git a/vernac/vernacextend.mli b/vernac/vernacextend.mli index 4d885a3afc..f06f31d45b 100644 --- a/vernac/vernacextend.mli +++ b/vernac/vernacextend.mli @@ -74,7 +74,6 @@ type vernac_classification = vernac_type * vernac_when type vernac_interp_phase = | VtDefault of (unit -> unit) | VtCloseProof of (pstate:Proof_global.t -> unit) - | VtMaybeOpenProof of (unit -> Proof_global.t option) | VtOpenProof of (unit -> Proof_global.t) | VtModifyProof of (pstate:Proof_global.t -> Proof_global.t) | VtReadProofOpt of (pstate:Proof_global.t option -> unit) -- cgit v1.2.3