瀏覽代碼

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