diff options
| author | herbelin | 2008-06-11 20:14:12 +0000 |
|---|---|---|
| committer | herbelin | 2008-06-11 20:14:12 +0000 |
| commit | 91d8c7eda69c2e97d73dbc2922f3ba92b03a2b2f (patch) | |
| tree | 71ae9f3d91c31d4912bbeb6c1266c13f869197fb | |
| parent | 07b85674ef5f90467ea9bd8ed3c87572d2af8016 (diff) | |
Bug dans l'adaptation de library_full_filename lors du débranchement
des filename hors reset (r11077).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11110 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | library/library.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/library/library.ml b/library/library.ml index e595df092c..da7c4ebb04 100644 --- a/library/library.ml +++ b/library/library.ml @@ -197,8 +197,7 @@ let register_library_filename dir f = LibraryFilenameMap.add dir f !libraries_filename_table let library_full_filename dir = - try LibraryFilenameMap.find dir !libraries_filename_table - with Not_found -> "unavailable" + LibraryFilenameMap.find dir !libraries_filename_table let library_is_loaded dir = try let _ = find_library dir in true |
