|
@@ -81,7 +81,6 @@ let resolve_unqualified ctx name next_path p =
|
|
match next_path with
|
|
match next_path with
|
|
| (field,PUppercase,pfield) :: next_path ->
|
|
| (field,PUppercase,pfield) :: next_path ->
|
|
let e = type_module_type ctx t None p in
|
|
let e = type_module_type ctx t None p in
|
|
- let e = acc_get ctx (AKExpr e) p in
|
|
|
|
let f = type_field (TypeFieldConfig.create true) ctx e field pfield in
|
|
let f = type_field (TypeFieldConfig.create true) ctx e field pfield in
|
|
ignore(f MCall); (* raises Not_found *) (* not necessarily a call, but prevent #2602 among others *)
|
|
ignore(f MCall); (* raises Not_found *) (* not necessarily a call, but prevent #2602 among others *)
|
|
f, next_path
|
|
f, next_path
|