From 9d27ae09786866b6e3d7b79d1fa7667e5e2aa309 Mon Sep 17 00:00:00 2001
From: Stephane Glondu <steph@glondu.net>
Date: Tue, 19 Apr 2011 16:44:20 +0200
Subject: Imported Upstream version 8.3.pl2

---
 ide/coq.ml | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

(limited to 'ide/coq.ml')

diff --git a/ide/coq.ml b/ide/coq.ml
index 4996661a..bb08e2af 100644
--- a/ide/coq.ml
+++ b/ide/coq.ml
@@ -6,7 +6,7 @@
 (*         *       GNU Lesser General Public License Version 2.1        *)
 (************************************************************************)
 
-(* $Id: coq.ml 13431 2010-09-18 08:15:29Z herbelin $ *)
+(* $Id: coq.ml 13751 2010-12-24 09:56:05Z letouzey $ *)
 
 open Vernac
 open Vernacexpr
@@ -27,10 +27,6 @@ open Termops
 open Namegen
 open Ideutils
 
-let prerr_endline s = if !debug then prerr_endline s else ()
-
-let output = ref (Format.formatter_of_out_channel stdout)
-
 let msg m =
   let b =  Buffer.create 103 in
   Pp.msg_with (Format.formatter_of_buffer b) m;
@@ -394,7 +390,7 @@ let compute_reset_info loc_ast =
   }
 
 let reset_initial () =
-  prerr_endline "Reset initial called"; flush stderr;
+  prerr_endline "Reset initial called";
   Vernacentries.abort_refine Lib.reset_initial ()
 
 let reset_to sp =
@@ -412,7 +408,7 @@ let interp_with_options verbosely options s =
   let pe = Pcoq.Gram.Entry.parse Pcoq.main_entry pa in
   (* Temporary hack to make coqide.byte work (WTF???) - now with less screen
   * pollution *)
-  Pervasives.prerr_string " \r"; Pervasives.flush stderr;
+  (try Pervasives.prerr_string " \r"; Pervasives.flush stderr with _ -> ());
   match pe with
     | None -> assert false
     | Some((loc,vernac) as last) ->
-- 
cgit v1.2.3