diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-12-19 18:14:36 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-12-19 18:14:36 +0000 |
| commit | 3b59ca927cba26b3bfbf53f22c3783bfa03b9f32 (patch) | |
| tree | 7123a67eae8cbc417667dc1b6b74a6dfa66a0f6e /library | |
| parent | 7c87a6bb31415fe8ac3a0c708c540f7c7a116af9 (diff) | |
Reset Initial uniquement interactivement
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5113 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library')
| -rw-r--r-- | library/lib.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/library/lib.ml b/library/lib.ml index f456f2410..ea22acca5 100644 --- a/library/lib.ml +++ b/library/lib.ml @@ -526,7 +526,8 @@ let declare_initial_state () = let reset_initial () = match !initial_state with - | None -> init () + | None -> + error "Resetting to the initial state is possible only interactively" | Some sp -> begin match split_lib sp with | (_,[_,FrozenState fs as hd],before) -> |