From e44d076a1aaaebe28cf9c1252db47fa7b7ca97ba Mon Sep 17 00:00:00 2001
From: herbelin
Date: Thu, 10 Jan 2002 18:36:38 +0000
Subject: Ajout flush

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2389 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 lib/system.ml | 1 +
 1 file changed, 1 insertion(+)

(limited to 'lib')

diff --git a/lib/system.ml b/lib/system.ml
index 37a102d40b..20f5f0ced2 100644
--- a/lib/system.ml
+++ b/lib/system.ml
@@ -56,6 +56,7 @@ let safe_getenv_def var def =
     Sys.getenv var
   with Not_found ->
     warning ("Environnement variable "^var^" not found: using '"^def^"' .");
+    flush Pervasives.stdout;
     def
 
 let home = (safe_getenv_def "HOME" ".")
-- 
cgit v1.2.3