From cb84a4169928536629e0c608dbc282daa3bec0bd Mon Sep 17 00:00:00 2001
From: Stefano Zacchiroli <zack@upsilon.cc>
Date: Thu, 5 Feb 2004 17:46:21 +0000
Subject: [PATCH] flush stdout after print_string

---
 helm/gTopLevel/regtest.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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")
 
-- 
2.39.2