From e914f29ff02cfc065d6b3e8f45259341198fef5d Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Wed, 11 Feb 2015 00:20:07 +0100
Subject: Reinstauring backtrace display in CoqIDE.

---
 ide/ide_slave.ml | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/ide/ide_slave.ml b/ide/ide_slave.ml
index f4b81a241b..dc52ea9aad 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
-- 
cgit v1.2.3