From cb84a4169928536629e0c608dbc282daa3bec0bd Mon Sep 17 00:00:00 2001 From: Stefano Zacchiroli 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