diff options
| -rw-r--r-- | library/library.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/library/library.ml b/library/library.ml index f1bc49187..b443c2a4c 100644 --- a/library/library.ml +++ b/library/library.ml @@ -465,7 +465,7 @@ let rec_intern_by_filename_only id f = m.library_name, needed let native_name_from_filename f = - let paths = Loadpath.get_paths () in + let _paths = Loadpath.get_paths () in let ch = System.with_magic_number_check raw_intern_library f in let (lmd : seg_lib), pos, digest_lmd = System.marshal_in_segment f ch in Nativecode.mod_uid_of_dirpath lmd.md_name |