From 7c56058bad50c783a24bfa2d7adf5e257198303a Mon Sep 17 00:00:00 2001 From: letouzey Date: Tue, 23 Apr 2013 18:16:21 +0000 Subject: 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 --- library/lib.mli | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'library/lib.mli') 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 -- cgit v1.2.3