diff options
| author |  Guillaume Melquiond <guillaume.melquiond@inria.fr> | 2015-09-30 06:52:01 +0200 |
|---|---|---|
| committer | Guillaume Melquiond <guillaume.melquiond@inria.fr> | 2015-09-30 06:52:01 +0200 |
| commit | b248c23b84a96ef692e4a3ded6668733820e1a77 (patch) | |
| tree | 673f1628f28f438db789f2091ee49e5fd30796f5 /library/loadpath.ml | |
| parent | 99918c8a8cfb4285798a70351673be2679a6e819 (diff) | |
Unexport Loadpath.get_paths.
Diffstat (limited to 'library/loadpath.ml')
| -rw-r--r-- | library/loadpath.ml | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/library/loadpath.ml b/library/loadpath.ml index d35dca212..622d390a2 100644 --- a/library/loadpath.ml +++ b/library/loadpath.ml @@ -28,8 +28,6 @@ let physical p = p.path_physical let get_load_paths () = !load_paths -let get_paths () = List.map physical !load_paths - let anomaly_too_many_paths path = anomaly (str "Several logical paths are associated to" ++ spc () ++ str path) @@ -114,7 +112,7 @@ let expand_path dir = aux !load_paths let locate_file fname = - let paths = get_paths () in + let paths = List.map physical !load_paths in let _,longfname = System.find_file_in_path ~warn:(Flags.is_verbose()) paths fname in longfname |