From f35a2ddd119ca99e924c68e3346a07087811c261 Mon Sep 17 00:00:00 2001 From: herbelin Date: Sun, 31 Oct 2010 21:19:15 +0000 Subject: Minor code improvements around libobject - renamed load_object in mltop into load_ml_object to avoid confusion with load_object in library - flushed the liboject warning in real time git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13596 85f007b7-540e-0410-9357-904b9bb8a0f7 --- library/libobject.ml | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'library/libobject.ml') diff --git a/library/libobject.ml b/library/libobject.ml index d9ffe1cd5..4cc2fdb35 100644 --- a/library/libobject.ml +++ b/library/libobject.ml @@ -143,8 +143,9 @@ let apply_dyn_fun deflt f lobj = Failure "local to_apply_dyn_fun" -> if not (!relax_flag || Hashtbl.mem missing_tab tag) then begin - Pp.warning ("Cannot find library functions for an object with tag " - ^ tag ^ " (a plugin may be missing)"); + Pp.msg_warning + (Pp.str ("Cannot find library functions for an object with tag " + ^ tag ^ " (a plugin may be missing)")); Hashtbl.add missing_tab tag () end; deflt -- cgit v1.2.3