From 3b59ca927cba26b3bfbf53f22c3783bfa03b9f32 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Fri, 19 Dec 2003 18:14:36 +0000
Subject: Reset Initial uniquement interactivement

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5113 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 library/lib.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/library/lib.ml b/library/lib.ml
index f456f2410b..ea22acca5f 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) ->
-- 
cgit v1.2.3