diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-10-31 21:19:15 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-10-31 21:19:15 +0000 |
| commit | f35a2ddd119ca99e924c68e3346a07087811c261 (patch) | |
| tree | d44b62f7c09f284ba05a48191866a80359d4f6c0 /library/libobject.ml | |
| parent | 5b7992d4650e0aea9c34cdc08c00d292a000928c (diff) | |
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
Diffstat (limited to 'library/libobject.ml')
| -rw-r--r-- | library/libobject.ml | 5 |
1 files changed, 3 insertions, 2 deletions
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 |