From: Stefano Zacchiroli <zack@upsilon.cc>
Date: Thu, 5 Feb 2004 17:46:21 +0000 (+0000)
Subject: flush stdout after print_string
X-Git-Tag: V_0_2_3~30
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=cb84a4169928536629e0c608dbc282daa3bec0bd;p=helm.git

flush stdout after print_string
---

diff --git a/helm/gTopLevel/regtest.ml b/helm/gTopLevel/regtest.ml
index 625ac6440..f3635f3d8 100644
--- a/helm/gTopLevel/regtest.ml
+++ b/helm/gTopLevel/regtest.ml
@@ -29,7 +29,7 @@ let argc = Array.length Sys.argv
 
 let rawsep = "###"
 let sep = Pcre.regexp (sprintf "^%s" rawsep)
-let print s = print_string s
+let print s = print_string s; flush stdout
 let print_endline s = print_endline s
 let print_endline_to_channel ch s = output_string ch (s ^ "\n")