diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2015-02-11 00:20:07 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2015-02-11 00:20:07 +0100 |
| commit | e914f29ff02cfc065d6b3e8f45259341198fef5d (patch) | |
| tree | c47075b21cda6b833a02b6d0af00ccbdb1b6b9ec /ide | |
| parent | 9bbf64143da7c29a3b7b1bf84a70f887e1e8aa63 (diff) | |
Reinstauring backtrace display in CoqIDE.
Diffstat (limited to 'ide')
| -rw-r--r-- | ide/ide_slave.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ide/ide_slave.ml b/ide/ide_slave.ml index f4b81a241..dc52ea9aa 100644 --- a/ide/ide_slave.ml +++ b/ide/ide_slave.ml @@ -327,14 +327,14 @@ let handle_exn (e, info) = let loc_of e = match Loc.get_loc e with | Some loc when not (Loc.is_ghost loc) -> Some (Loc.unloc loc) | _ -> None in - let mk_msg e = read_stdout ()^"\n"^string_of_ppcmds (Errors.print e) in + let mk_msg () = read_stdout ()^"\n"^string_of_ppcmds (Errors.print ~info e) in match e with | Errors.Drop -> dummy, None, "Drop is not allowed by coqide!" | Errors.Quit -> dummy, None, "Quit is not allowed by coqide!" | e -> match Stateid.get info with - | Some (valid, _) -> valid, loc_of info, mk_msg e - | None -> dummy, loc_of info, mk_msg e + | Some (valid, _) -> valid, loc_of info, mk_msg () + | None -> dummy, loc_of info, mk_msg () let init = let initialized = ref false in |