diff options
| author | filliatr | 1999-12-10 10:10:30 +0000 |
|---|---|---|
| committer | filliatr | 1999-12-10 10:10:30 +0000 |
| commit | ba569318fee9055745b6bc191d97add351900e74 (patch) | |
| tree | d60c7823dde483a09284d8b94cfe6e28d75394b0 /proofs | |
| parent | 92c43edb177407876440067a9298fd78e246d12c (diff) | |
debug reset
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@229 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/pfedit.ml | 6 | ||||
| -rw-r--r-- | proofs/pfedit.mli | 1 |
2 files changed, 2 insertions, 5 deletions
diff --git a/proofs/pfedit.ml b/proofs/pfedit.ml index e2f5ce94b4..6ff3deb709 100644 --- a/proofs/pfedit.ml +++ b/proofs/pfedit.ml @@ -236,12 +236,8 @@ and save_state = abort_refine States.raw_save_state and restore_state = abort_refine States.raw_restore_state and restore_last_saved_state = abort_refine States.raw_restore_last_saved_state ***) -and reset_all = abort_refine Lib.init +and reset_initial = abort_refine Lib.reset_initial -(***TODO -let reset_prelude () = restore_state "Prelude" -and reset_initial () = restore_state "Initial" -***) (*********************************************************************) (* Modifying the current prooftree *) diff --git a/proofs/pfedit.mli b/proofs/pfedit.mli index 9a528f5551..ab9dc3e431 100644 --- a/proofs/pfedit.mli +++ b/proofs/pfedit.mli @@ -52,6 +52,7 @@ val proof_term : unit -> constr val start_proof : string -> strength -> Coqast.t -> unit val start_proof_constr : string -> strength -> constr -> unit val reset_name : identifier -> unit +val reset_initial : unit -> unit val save_named : bool -> unit val save_anonymous : bool -> string -> 'a -> unit |