Simplify backtracking

As we can now jump right onto a closed segment, there is no need for
complicated pattern matching.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12758 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 1 insertions, 10 deletions

diff --git a/ide/coq.mli b/ide/coq.mli
index 34f5c4faa..5a98bbf71 100644
--- a/ide/coq.mli
+++ b/ide/coq.mli
@@ -30,14 +30,8 @@ sig
   val set : t -> bool -> unit
 end
 
-type reset_mark =
-  | ResetToId of Names.identifier
-  | ResetToState of Libnames.object_name
 
-type reset_status =
-  | NoReset
-  | ResetAtSegmentStart of Names.identifier
-  | ResetAtRegisteredObject of reset_mark
+type reset_status
 
 type undo_info = identifier list
 
@@ -47,13 +41,10 @@ type reset_info = {
  status : reset_status;
  proofs : undo_info;
  loc_ast : Util.loc * Vernacexpr.vernac_expr;
- mutable section : bool;
 }
 
 val compute_reset_info : Util.loc * Vernacexpr.vernac_expr -> reset_info
 val reset_initial : unit -> unit
-val reset_to : reset_mark -> unit
-val reset_to_mod : identifier -> unit
 
 val init : unit -> string list
 val interp : bool -> string -> reset_info