Ver código fonte

use safer unification function for abstract eq op check

Simon Krajewski 3 meses atrás
pai
commit
ff0dfed6ed
1 arquivos alterados com 1 adições e 1 exclusões
  1. 1 1
      src/typing/operators.ml

+ 1 - 1
src/typing/operators.ml

@@ -451,7 +451,7 @@ let find_abstract_binop_overload ctx op e1 e2 a c tl left is_assign_op p =
 	let is_eq_op = match op with OpEq | OpNotEq -> true | _ -> false in
 	if is_eq_op then begin match follow e1.etype,follow e2.etype with
 		| TMono _,_ | _,TMono _ ->
-			Type.unify e1.etype e2.etype
+			unify ctx e1.etype e2.etype p
 		| _ ->
 			()
 	end;