|
@@ -476,7 +476,7 @@ let make_macro_api ctx mctx p =
|
|
|
in
|
|
|
let add is_macro ctx =
|
|
|
let mdep = Option.map_default (fun s -> TypeloadModule.load_module ~origin:MDepFromMacro ctx (parse_path s) pos) ctx.m.curmod mdep in
|
|
|
- let mnew = TypeloadModule.type_module ctx.com ctx.g ~dont_check_path:(has_native_meta) m (Path.UniqueKey.lazy_path mdep.m_extra.m_file) [tdef,pos] pos in
|
|
|
+ let mnew = TypeloadModule.type_module ctx.com ctx.g ~dont_check_path:(has_native_meta) m "?" [tdef,pos] pos in
|
|
|
mnew.m_extra.m_kind <- if is_macro then MMacro else MFake;
|
|
|
add_dependency mnew mdep MDepFromMacro;
|
|
|
ctx.com.module_nonexistent_lut#clear;
|
|
@@ -506,7 +506,7 @@ let make_macro_api ctx mctx p =
|
|
|
let m = ctx.com.module_lut#find mpath in
|
|
|
ignore(TypeloadModule.type_types_into_module ctx.com ctx.g m types pos)
|
|
|
with Not_found ->
|
|
|
- let mnew = TypeloadModule.type_module ctx.com ctx.g mpath (Path.UniqueKey.lazy_path ctx.m.curmod.m_extra.m_file) types pos in
|
|
|
+ let mnew = TypeloadModule.type_module ctx.com ctx.g mpath "?" types pos in
|
|
|
mnew.m_extra.m_kind <- MFake;
|
|
|
add_dependency mnew ctx.m.curmod MDepFromMacro;
|
|
|
ctx.com.module_nonexistent_lut#clear;
|