From d556fd3ffb8b59e2a5136ab748a3a8d73c3f45f0 Mon Sep 17 00:00:00 2001 From: courtieu Date: Thu, 28 Dec 2006 15:41:39 +0000 Subject: Cleaning backtracking code, optimized "Backtrack n x y" when n is current state. git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9464 85f007b7-540e-0410-9357-904b9bb8a0f7 --- library/lib.mli | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'library/lib.mli') diff --git a/library/lib.mli b/library/lib.mli index 52e6b7bd7..5639ffed7 100644 --- a/library/lib.mli +++ b/library/lib.mli @@ -65,8 +65,14 @@ val add_anonymous_leaf : obj -> unit val add_leaves : identifier -> obj list -> object_name val add_frozen_state : unit -> unit + +(* Adds a "dummy" entry in lib_stk with a unique new label number. *) val mark_end_of_command : unit -> unit +(* Returns the current label number *) val current_command_label : unit -> int +(* [reset_label n ] resets [lib_stk] to the label n registered by + [mark_end_of_command()]. That is it forgets the label and anything + registered after it. *) val reset_label : int -> unit (*s The function [contents_after] returns the current library segment, -- cgit v1.2.3