diff options
| author | gareuselesinge | 2013-08-08 18:52:52 +0000 |
|---|---|---|
| committer | gareuselesinge | 2013-08-08 18:52:52 +0000 |
| commit | c81254903e1e50a2305cd48ccfb673d9737afc48 (patch) | |
| tree | 622d6167cb84e4232794145801ab5ca87bde25fa /proofs/pfedit.ml | |
| parent | 80aba8d52c650ef8e4ada694c20bf12c15849694 (diff) | |
get rid of closures in global/proof state
In some cases, an 'a -> 'b field is changed into an ('a -> b') option
field so that one can forget the closures and marshal the resulting
state
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16683 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs/pfedit.ml')
| -rw-r--r-- | proofs/pfedit.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/proofs/pfedit.ml b/proofs/pfedit.ml index ed1de75bcf..d02711eeb3 100644 --- a/proofs/pfedit.ml +++ b/proofs/pfedit.ml @@ -48,7 +48,6 @@ let get_pftreestate () = Proof_global.give_me_the_proof () let set_end_tac tac = - let tac = Proofview.V82.tactic tac in Proof_global.set_endline_tactic tac let set_used_variables l = @@ -117,7 +116,7 @@ open Decl_kinds let next = let n = ref 0 in fun () -> incr n; !n let build_constant_by_tactic id sign ?(goal_kind = Global,Proof Theorem) typ tac = - start_proof id goal_kind sign typ (fun _ _ -> ()); + start_proof id goal_kind sign typ None; try by tac; let _,(const,_,_,_) = cook_proof (fun _ -> ()) in |