diff options
| author |  ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-05-30 16:51:34 +0000 |
|---|---|---|
| committer | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-05-30 16:51:34 +0000 |
| commit | 4d58a4f25a796d1c5d39f2be8648696cdfd46dba (patch) | |
| tree | 3b2587eb464393caf23a50283c10f80532ace22f /checker | |
| parent | 24879dc0e59856e297b0172d00d67df67fbb0184 (diff) | |
Getting rid of Pp.msg
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15400 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'checker')
| -rw-r--r-- | checker/check.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/checker/check.ml b/checker/check.ml index 3194b2681..5b8507304 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 |