소스 검색

actually we want this constraint exception to fall through

Simon Krajewski 10 년 전
부모
커밋
e16fa6224b
1개의 변경된 파일1개의 추가작업 그리고 5개의 파일을 삭제
  1. 1 5
      typer.ml

+ 1 - 5
typer.ml

@@ -2246,11 +2246,7 @@ and type_binop2 ctx op (e1 : texpr) (e2 : Ast.expr) is_assign_op wt p =
 								Type.type_eq EqStrict e2.etype t2;
 								Codegen.AbstractCast.cast_or_unify_raise ctx t1 e1 p,e2
 							end in
-							begin try
-								check_constraints ctx "" cf.cf_params monos (apply_params a.a_params tl) false cf.cf_pos;
-							with Unify_error l ->
-								display_error ctx (error_msg (Unify l)) p
-							end;
+							check_constraints ctx "" cf.cf_params monos (apply_params a.a_params tl) false cf.cf_pos;
 							let e = if not swapped then
 								make e1 e2
 							else