fix label lookup

git-svn-id: http://caml.inria.fr/svn/ocaml/branches/record-disambiguation@13034 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
2012-10-18 06:20:23 +00:00 · 2012-10-18 06:20:23 +00:00 · f55e794e82
parent aede4856a8
commit f55e794e82
1 changed files with 1 additions and 1 deletions
--- a/typing/typecore.ml
+++ b/typing/typecore.ml
@ -549,7 +549,7 @@ let type_label_a_list ?labels env type_lbl_a opath lid_a_list =
          Longident.Lident s, Some labels when Hashtbl.mem labels s ->
            fst (Hashtbl.find labels s), []
        | _ ->
-        let _, label = Env.lookup_label lid.txt env in
+        let _, label = Typetexp.find_label env lid.loc lid.txt in
        let ty_res = instance Env.empty label.lbl_res in
        let path =
          match opath, (expand_head env ty_res).desc with