diff options
| author | courtieu | 2008-04-23 11:43:58 +0000 |
|---|---|---|
| committer | courtieu | 2008-04-23 11:43:58 +0000 |
| commit | ee4c7b812c9a2eefbf44097f9168ca1c55c2e668 (patch) | |
| tree | 688b219494952d8166238dede5d8a2398d32d4fb | |
| parent | cf6388889773447a8e2727c30c982ea3399db29b (diff) | |
Added frozen state after each command.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10836 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | toplevel/vernac.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/toplevel/vernac.ml b/toplevel/vernac.ml index 75d1cdc99b..ac834b2a58 100644 --- a/toplevel/vernac.ml +++ b/toplevel/vernac.ml @@ -197,10 +197,12 @@ and read_vernac_file verbosely s = (* raw_do_vernac : char Stream.t -> unit * parses and executes one command of the vernacular char stream. * Marks the end of the command in the lib_stk with a new label to - * make vernac undoing easier. *) + * make vernac undoing easier. Also freeze state to speed up + * backtracking. *) let raw_do_vernac po = vernac (States.with_heavy_rollback Vernacentries.interp) (po,None); + Lib.add_frozen_state(); Lib.mark_end_of_command() (* XML output hooks *) |