1.1 --- a/src/Pure/System/isabelle_process.ML Mon Aug 09 21:35:45 2010 +0200
1.2 +++ b/src/Pure/System/isabelle_process.ML Mon Aug 09 22:02:26 2010 +0200
1.3 @@ -57,7 +57,7 @@
1.4 let
1.5 val _ = TextIO.StreamIO.setBufferMode (TextIO.getOutstream stream, IO.BLOCK_BUF);
1.6 fun loop () =
1.7 - (OS.Process.sleep (Time.fromMilliseconds 50); try TextIO.flushOut stream; loop ());
1.8 + (OS.Process.sleep (Time.fromMilliseconds 20); try TextIO.flushOut stream; loop ());
1.9 in loop end;
1.10
1.11 fun rendezvous f fifo =