Fix issues with "Reset Initial" in scripts given to coqtop -l

 Doing coqtop -l on a file starting with Reset Initial used to fail.
 To avoid that, we now always place an initial DOT in the libstack.

 Backtrack.reset_initial has been adapted accordingly: during an
 interactive session following a Load via coqtop -l (or .coqrc),
 a Reset Initial will bring back at the start of the interactive
 session, *not* undoing the initial Load.

 Note : Reset Initial might hence not be equivalent anymore to BackTo 1.

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

1 files changed, 5 insertions, 3 deletions

diff --git a/library/lib.mli b/library/lib.mli
index 1ea76f1ad..a37d7a113 100644
--- a/library/lib.mli
+++ b/library/lib.mli
@@ -155,14 +155,16 @@ val mark_end_of_command : unit -> unit
 (** Returns the current label number *)
 val current_command_label : unit -> int
 
-(** The first label number *)
-val first_command_label : int
-
 (** [reset_label n] resets [lib_stk] to the label n registered by
    [mark_end_of_command()]. It forgets anything registered after
    this label. The label should be strictly in the past. *)
 val reset_label : int -> unit
 
+(** [raw_reset_initial] is now [reset_label] to the first label.
+    This is meant to be used during initial Load's and compilations.
+    Otherwise, consider instead [Backtrack.reset_initial] *)
+val raw_reset_initial : unit -> unit
+
 (** search the label registered immediately before adding some definition *)
 val label_before_name : Names.Id.t Loc.located -> int