diff options
| -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 |