From 04146817d1a69bcfd04dc7fe82caa5e6204d1502 Mon Sep 17 00:00:00 2001
From: filliatr
Date: Mon, 19 May 2003 11:44:33 +0000
Subject: CoqIde : but reset_mod

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4030 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 ide/coq.ml     | 2 +-
 ide/coqide.ml  | 2 +-
 library/lib.ml | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/ide/coq.ml b/ide/coq.ml
index cccd911144..6e447df1de 100644
--- a/ide/coq.ml
+++ b/ide/coq.ml
@@ -244,7 +244,7 @@ let reset_to id =
   Vernacentries.abort_refine Lib.reset_name (Util.dummy_loc,id)
 let reset_to_mod id = 
   prerr_endline ("Reset called to Mod/Sect with "^(string_of_id id)); 
-  Lib.reset_mod (Util.dummy_loc,id)
+  Vernacentries.abort_refine Lib.reset_mod (Util.dummy_loc,id)
 
 
 let hyp_menu (env, sigma, ((coqident,ident),_,ast),(s,pr_ast)) =
diff --git a/ide/coqide.ml b/ide/coqide.ml
index 5abc2c6e14..0b87f41cb1 100644
--- a/ide/coqide.ml
+++ b/ide/coqide.ml
@@ -457,7 +457,7 @@ let update_on_end_of_proof id =
 	r := true; raise Exit end
       else begin
 	prerr_endline "Toggling Changing Reset id"; 
-	r:=false
+	r := false
       end
   | { ast = _, (VernacAbort _ | VernacAbortAll) } -> raise Exit
   | _ -> ()
diff --git a/library/lib.ml b/library/lib.ml
index a4d6aaa221..f24cf48922 100644
--- a/library/lib.ml
+++ b/library/lib.ml
@@ -442,7 +442,7 @@ let reset_name (loc,id) =
 let is_mod_node = function 
   | OpenedModule _ | OpenedModtype _ | OpenedSection _ 
   | ClosedSection _ -> true 
-  (* | Leaf o -> let t = object_tag o in t = "MODULE" || t = "MODULE TYPE" *)
+  | Leaf o -> let t = object_tag o in t = "MODULE" || t = "MODULE TYPE"
   | _ -> false
 
 (* Reset on a module or section name in order to bypass constants with 
-- 
cgit v1.2.3