diff options
| author | filliatr | 2003-05-19 11:44:33 +0000 |
|---|---|---|
| committer | filliatr | 2003-05-19 11:44:33 +0000 |
| commit | 04146817d1a69bcfd04dc7fe82caa5e6204d1502 (patch) | |
| tree | 14a83119eae40a1656434c3cc259c92b8a2fca4d | |
| parent | ca3bc1725eac3b17fe26be50ea506318d5983984 (diff) | |
CoqIde : but reset_mod
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4030 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | ide/coq.ml | 2 | ||||
| -rw-r--r-- | ide/coqide.ml | 2 | ||||
| -rw-r--r-- | 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 |