diff options
author | aspiwack <aspiwack@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-07-13 08:54:02 +0000 |
---|---|---|
committer | aspiwack <aspiwack@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-07-13 08:54:02 +0000 |
commit | d8e0144fc1e45d72a6650461231498e65637449a (patch) | |
tree | 91b3a28a776b05b94abd02d06034152e30da58f5 | |
parent | 68ebbfac8e560a7d6d917ff68baeb69e5c0c57d9 (diff) |
Fixes r15610 (A new status Unsafe in Interface).
Two warnings had passed my sensors.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15619 85f007b7-540e-0410-9357-904b9bb8a0f7
-rw-r--r-- | ide/wg_Command.ml | 2 | ||||
-rw-r--r-- | plugins/funind/recdef.ml | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/ide/wg_Command.ml b/ide/wg_Command.ml index 931572da2..11249578e 100644 --- a/ide/wg_Command.ml +++ b/ide/wg_Command.ml @@ -119,7 +119,7 @@ object(self) let answer = match Coq.interp handle insert ~raw:true phrase with | Interface.Fail (l,str) -> "Error while interpreting "^phrase^":\n"^str - | Interface.Good results -> + | Interface.Good results | Interface.Unsafe results -> "Result for command " ^ phrase ^ ":\n" ^ results in result#buffer#insert answer diff --git a/plugins/funind/recdef.ml b/plugins/funind/recdef.ml index af7ec6f20..a57824973 100644 --- a/plugins/funind/recdef.ml +++ b/plugins/funind/recdef.ml @@ -1289,7 +1289,7 @@ let open_new_goal (build_proof:tactic -> tactic -> unit) using_lemmas ref_ goal_ ref_ := Some lemma ; let lid = ref [] in let h_num = ref (-1) in - Flags.silently Vernacentries.interp (Vernacexpr.VernacAbort None); + ignore (Flags.silently Vernacentries.interp (Vernacexpr.VernacAbort None)); build_proof ( fun gls -> let hid = next_ident_away_in_goal h_id (pf_ids_of_hyps gls) in |