From 9007bc92139cb80139337ea5d11322c1c1f12c19 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Wed, 24 Jan 2001 23:06:42 +0000
Subject: Ajout flush, divers

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

(limited to 'lib')

diff --git a/lib/system.ml b/lib/system.ml
index b743df478e..ae7784bf52 100644
--- a/lib/system.ml
+++ b/lib/system.ml
@@ -36,8 +36,8 @@ let all_subdirs root alias =
 	      traverse file newrel
 	    end
 	  with Unix_error (e,s1,s2) ->
-	    Printf.printf "Error while scanning load path:\n %s: %s\n"
-	      s2 (error_message e)
+	    (Printf.printf "Warning while scanning load path:\n%s: %s\n"
+	      s2 (error_message e); flush Pervasives.stdout)
       done
     with End_of_file ->
       closedir dirh
-- 
cgit v1.2.3