|
@@ -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
|