coqide: blaster V1

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4059 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 3 insertions, 3 deletions

diff --git a/ide/ideutils.ml b/ide/ideutils.ml
index 4cf9c1ba22..f8af156c47 100644
--- a/ide/ideutils.ml
+++ b/ide/ideutils.ml
@@ -244,7 +244,7 @@ let rec print_list print fmt = function
 
 let run_command f c =
   let result = Buffer.create 127 in
-  let cin,cout,cerr = Unix.open_process_full c [||] in
+  let cin,cout,cerr = Unix.open_process_full c (Unix.environment ()) in
   let buff = String.make 127 ' ' in
   let buffe = String.make 127 ' ' in
   let n = ref 0 in
@@ -253,10 +253,10 @@ let run_command f c =
   while n:= input cin buff 0 127 ; ne := input cerr buffe 0 127 ; 
     !n+ !ne <> 0
   do 
-    let r = String.sub buff 0 !n in 
+    let r = try_convert (String.sub buff 0 !n) in 
     f r;
     Buffer.add_string result r;
-    let r = String.sub buffe 0 !ne in 
+    let r = try_convert (String.sub buffe 0 !ne) in 
     f r;
     Buffer.add_string result r 
   done;