فهرست منبع

another follow (fixed issue #1764)

Simon Krajewski 12 سال پیش
والد
کامیت
4e763d5cb6
1فایلهای تغییر یافته به همراه1 افزوده شده و 1 حذف شده
  1. 1 1
      typer.ml

+ 1 - 1
typer.ml

@@ -1416,7 +1416,7 @@ let rec type_binop ctx op e1 e2 is_assign_op p =
 			make_call ctx ef [ebase;ekey;e2] r p
 		| AKUsing(ef,_,_,et) ->
 			(* this must be an abstract setter *)
-			let ret = match ef.etype with
+			let ret = match follow ef.etype with
 				| TFun([_;(_,_,t)],ret) ->
 					unify ctx e2.etype t p;
 					ret