From 4d58a4f25a796d1c5d39f2be8648696cdfd46dba Mon Sep 17 00:00:00 2001
From: ppedrot
Date: Wed, 30 May 2012 16:51:34 +0000
Subject: Getting rid of Pp.msg

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15400 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 checker/check.ml | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'checker')

diff --git a/checker/check.ml b/checker/check.ml
index 3194b26813..5b8507304b 100644
--- a/checker/check.ml
+++ b/checker/check.ml
@@ -106,7 +106,8 @@ let check_one_lib admit (dir,m) =
     (Flags.if_verbose msgnl
       (str "Checking library: " ++ pr_dirpath dir);
       Safe_typing.import file md dig);
-  Flags.if_verbose msg(fnl());
+  Flags.if_verbose pp (fnl());
+  pp_flush ();
   register_loaded_library m
 
 (*************************************************************************)
@@ -287,7 +288,7 @@ let name_clash_message dir mdir f =
 let depgraph = ref LibraryMap.empty
 
 let intern_from_file (dir, f) =
-  Flags.if_verbose msg (str"[intern "++str f++str" ...");
+  Flags.if_verbose pp (str"[intern "++str f++str" ..."); pp_flush ();
   let (md,table,digest) =
     try
       let ch = with_magic_number_check raw_intern_library f in
-- 
cgit v1.2.3