Ver código fonte

[typeload] disable strange `@:multiType @:from` unification

Simon Krajewski 10 anos atrás
pai
commit
261956fec3
1 arquivos alterados com 1 adições e 1 exclusões
  1. 1 1
      typeload.ml

+ 1 - 1
typeload.ml

@@ -2040,7 +2040,7 @@ let init_class ctx c p context_init herits fields =
 									with Not_found ->
 										error "Constructor of multi-type abstract must be defined before the individual @:to-functions are" cf.cf_pos
 									in
-									delay ctx PFinal (fun () -> unify ctx m tthis f.cff_pos);
+									(* delay ctx PFinal (fun () -> unify ctx m tthis f.cff_pos); *)
 									let args = match follow (monomorphs a.a_params ctor.cf_type) with
 										| TFun(args,_) -> List.map (fun (_,_,t) -> t) args
 										| _ -> assert false