diff options
Diffstat (limited to 'ide/ide_slave.ml')
| -rw-r--r-- | ide/ide_slave.ml | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/ide/ide_slave.ml b/ide/ide_slave.ml index 6b7efc839e..c66d69c036 100644 --- a/ide/ide_slave.ml +++ b/ide/ide_slave.ml @@ -359,8 +359,6 @@ let handle_exn (e, info) = | _ -> None in let mk_msg () = CErrors.print ~info e in match e with - | CErrors.Drop -> dummy, None, Pp.str "Drop is not allowed by coqide!" - | CErrors.Quit -> dummy, None, Pp.str "Quit is not allowed by coqide!" | e -> match Stateid.get info with | Some (valid, _) -> valid, loc_of info, mk_msg () @@ -513,7 +511,7 @@ let () = Coqtop.toploop_init := (fun coq_args extra_args -> let args = parse extra_args in Flags.quiet := true; CoqworkmgrApi.(init High); - args) + coq_args, args) let () = Coqtop.toploop_run := loop |