diff options
| author |  glondu <glondu@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-09-17 15:59:03 +0000 |
|---|---|---|
| committer | glondu <glondu@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-09-17 15:59:03 +0000 |
| commit | f2320b085559b7470a3dad13cf2a1e9b0c1fb680 (patch) | |
| tree | 845df47497bb29a6de762768450c699cd3ff50c4 | |
| parent | c66bc369d9b91a436cab10b164c8e1bd5cac79c8 (diff) | |
Replace unprotected call to where_in_path by find_file_in_path
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12340 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | toplevel/mltop.ml4 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/mltop.ml4 b/toplevel/mltop.ml4 index eb9359107..455e4286a 100644 --- a/toplevel/mltop.ml4 +++ b/toplevel/mltop.ml4 @@ -109,7 +109,7 @@ let dir_ml_load s = * in this file, the Makefile dependency logic needs to be updated. *) let warn = Flags.is_verbose() in - let _,gname = where_in_path ~warn !coq_mlpath_copy s in + let _,gname = find_file_in_path ~warn !coq_mlpath_copy s in try Dynlink.loadfile gname; with | Dynlink.Error a -> |