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 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'ide')

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
   | _ -> ()
-- 
cgit v1.2.3