Pārlūkot izejas kodu

push @:coreApi metadata on abstract to implementing class

Simon Krajewski 12 gadi atpakaļ
vecāks
revīzija
8c47a1bb42
1 mainītis faili ar 1 papildinājumiem un 0 dzēšanām
  1. 1 0
      typeload.ml

+ 1 - 0
typeload.ml

@@ -176,6 +176,7 @@ let make_module ctx mpath file tdecls loadp =
 				(match !decls with
 				| (TClassDecl c,_) :: _ ->
 					(try c.cl_meta <- (Meta.get Meta.Build a.a_meta) :: c.cl_meta with Not_found -> ());
+					(try c.cl_meta <- (Meta.get Meta.CoreApi a.a_meta) :: c.cl_meta with Not_found -> ());
 					a.a_impl <- Some c;
 					c.cl_kind <- KAbstractImpl a
 				| _ -> assert false);