2
0
Simon Krajewski 11 жил өмнө
parent
commit
9f461796a1
1 өөрчлөгдсөн 1 нэмэгдсэн , 1 устгасан
  1. 1 1
      typer.ml

+ 1 - 1
typer.ml

@@ -766,7 +766,7 @@ let unify_field_call ctx fa el args ret p inline =
 				| err :: _ -> raise err
 				| _ -> assert false
 			end
-		| _ :: _ :: _ when ctx.com.config.pf_overload -> error "Ambiguous overload" p
+		| _ :: _ :: _ when is_overload && ctx.com.config.pf_overload -> error "Ambiguous overload" p
 		| (el,tf,mk_call) :: _ -> List.map fst el,tf,mk_call
 
 let fast_enum_field e ef p =