소스 검색

one more logic fix

Simon Krajewski 11 년 전
부모
커밋
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 =