Преглед на файлове

we weren't boooorn to follow...

Simon Krajewski преди 12 години
родител
ревизия
daecbc2a7c
променени са 1 файла, в които са добавени 1 реда и са изтрити 1 реда
  1. 1 1
      typer.ml

+ 1 - 1
typer.ml

@@ -1487,7 +1487,7 @@ let rec type_binop ctx op e1 e2 is_assign_op p =
  		| AKUsing(ef,c,cf,et) ->
  			(* abstract setter + getter *)
  			let ta = match c.cl_kind with KAbstractImpl a -> TAbstract(a, List.map (fun _ -> mk_mono()) a.a_types) | _ -> assert false in
-			let ret = match ef.etype with
+			let ret = match follow ef.etype with
 				| TFun([_;_],ret) -> ret
 				| _ ->  error "Invalid field type for abstract setter" p
 			in