diff options
| author |  xclerc <xclerc@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-10-14 07:33:57 +0000 |
|---|---|---|
| committer | xclerc <xclerc@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-10-14 07:33:57 +0000 |
| commit | ec5ed7870b4b59e05c5e994c9bad35e28685b8bd (patch) | |
| tree | 6b735f9c86df8102f132946afbf7b728f5b19edc /tools/coqdoc/index.ml | |
| parent | 38d9a3342f626d16bcf5c993bf15ff3e6e8ee8d9 (diff) | |
Getting rid of the use of deprecated elements (from the OCaml standard library).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16882 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tools/coqdoc/index.ml')
| -rw-r--r-- | tools/coqdoc/index.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tools/coqdoc/index.ml b/tools/coqdoc/index.ml index 7368ac1e0..8e82f4577 100644 --- a/tools/coqdoc/index.ml +++ b/tools/coqdoc/index.ml @@ -131,7 +131,7 @@ let find_external_library logicalpath = let rec aux = function | [] -> raise Not_found | (l,u)::rest -> - if String.length logicalpath > String.length l & + if String.length logicalpath > String.length l && String.sub logicalpath 0 (String.length l + 1) = l ^"." then u else aux rest |