Browse Source

one more logic fix

Simon Krajewski 11 years ago
parent
commit
9f461796a1
1 changed files with 1 additions and 1 deletions
  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
 				| err :: _ -> raise err
 				| _ -> assert false
 				| _ -> assert false
 			end
 			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
 		| (el,tf,mk_call) :: _ -> List.map fst el,tf,mk_call
 
 
 let fast_enum_field e ef p =
 let fast_enum_field e ef p =