Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix #5876. 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@13214 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Alain Frisch 2013-01-08 09:40:55 +00:00
parent fe4528d13a
commit 21f09281f3
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
typing/env.ml
View File

@ -1313,7 +1313,7 @@ let find_all proj1 proj2 f lid env acc =
(fun s (data, pos) acc -> f s (Pdot (p, s, pos)) data acc)
(proj2 c) acc
| Functor_comps _ ->
raise Not_found
acc
end
let find_all_simple_list proj1 proj2 f lid env acc =
@ -1334,7 +1334,7 @@ let find_all_simple_list proj1 proj2 f lid env acc =
f data acc)
(proj2 c) acc
| Functor_comps _ ->
raise Not_found
acc
end
let fold_modules f lid env acc =
@ -1366,7 +1366,7 @@ let fold_modules f lid env acc =
c.comp_modules
acc
| Functor_comps _ ->
raise Not_found
acc
end
let fold_values f =