|
@@ -295,6 +295,7 @@ let make_macro_api ctx p =
|
|
|
let mnew = TypeloadModule.type_module ctx ~dont_check_path:(has_native_meta) m (Path.UniqueKey.lazy_path mdep.m_extra.m_file) [tdef,pos] pos in
|
|
|
mnew.m_extra.m_kind <- if is_macro then MMacro else MFake;
|
|
|
add_dependency mnew mdep;
|
|
|
+ ctx.com.module_nonexistent_lut#clear;
|
|
|
in
|
|
|
add false ctx;
|
|
|
(* if we are adding a class which has a macro field, we also have to add it to the macro context (issue #1497) *)
|
|
@@ -324,6 +325,7 @@ let make_macro_api ctx p =
|
|
|
let mnew = TypeloadModule.type_module ctx mpath (Path.UniqueKey.lazy_path ctx.m.curmod.m_extra.m_file) types pos in
|
|
|
mnew.m_extra.m_kind <- MFake;
|
|
|
add_dependency mnew ctx.m.curmod;
|
|
|
+ ctx.com.module_nonexistent_lut#clear;
|
|
|
end
|
|
|
);
|
|
|
MacroApi.module_dependency = (fun mpath file ->
|