|
@@ -769,7 +769,7 @@ let unify_field_call ctx fa el args ret p inline =
|
|
|
begin try
|
|
|
begin match follow t with
|
|
|
| TFun(args,ret) ->
|
|
|
- let el,tf = unify_call_args' ctx el args ret p inline is_forced_inline in
|
|
|
+ let el,tf = unify_call_args' ctx el args ret p inline is_forced_inline in
|
|
|
let mk_call ethis =
|
|
|
let ef = mk (TField(ethis,mk_fa cf)) tf p in
|
|
|
make_call ctx ef (List.map fst el) ret p
|