diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-06-30 10:31:23 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-06-30 10:31:23 +0000 |
| commit | 072db8079d029c5928ae9be72f357086ef3f38ba (patch) | |
| tree | 5e78f17b59289f9443f94fac9fe99cfe1e360dc8 /library | |
| parent | 7d46472d5e06d78e75646da8b26ee19b3914d36f (diff) | |
Fichiers oubliés lors du 11188 :-(
On en profite pour faire dépendre l'avertissement de where_in_path du
mode silencieux.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11193 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library')
| -rw-r--r-- | library/library.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/library/library.ml b/library/library.ml index b17be690a..bcff15b25 100644 --- a/library/library.ml +++ b/library/library.ml @@ -423,7 +423,7 @@ let try_locate_absolute_library dir = let try_locate_qualified_library (loc,qid) = try - let (_,dir,f) = locate_qualified_library true qid in + let (_,dir,f) = locate_qualified_library (Flags.is_verbose()) qid in dir,f with e -> explain_locate_library_error qid e @@ -641,9 +641,9 @@ let current_reexports () = let error_recursively_dependent_library dir = errorlabstrm "" - (str "Unable to use logical name" ++ spc() ++ pr_dirpath dir ++ spc() ++ - str "to save current library" ++ spc() ++ str"because" ++ spc() ++ - str "it already depends on a library of this name.") + (strbrk "Unable to use logical name " ++ pr_dirpath dir ++ + strbrk " to save current library because" ++ + strbrk " it already depends on a library of this name.") let save_library_to dir f = let cenv, seg = Declaremods.end_library dir in |