Procházet zdrojové kódy

another follow (fixed issue #1764)

Simon Krajewski před 12 roky
rodič
revize
4e763d5cb6
1 změnil soubory, kde provedl 1 přidání a 1 odebrání
  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