Skip to content

Commit

Permalink
Flush between actx.classes loading
Browse files Browse the repository at this point in the history
  • Loading branch information
kLabz committed Aug 7, 2024
1 parent 1b58076 commit d2acdf1
Showing 1 changed file with 4 additions and 1 deletion.
5 changes: 4 additions & 1 deletion src/compiler/compiler.ml
Original file line number Diff line number Diff line change
Expand Up @@ -308,7 +308,10 @@ let do_type ctx mctx actx display_file_dot_path =
com.callbacks#run com.error_ext com.callbacks#get_after_init_macros;
run_or_diagnose ctx (fun () ->
if com.display.dms_kind <> DMNone then DisplayTexpr.check_display_file tctx cs;
List.iter (fun cpath -> ignore(tctx.Typecore.g.Typecore.do_load_module tctx cpath null_pos)) (List.rev actx.classes);
List.iter (fun cpath ->
ignore(tctx.Typecore.g.Typecore.do_load_module tctx cpath null_pos);
Typecore.flush_pass tctx.g (PBuildClass:Typecore.typer_pass) "actx.classes"
) (List.rev actx.classes);
Finalization.finalize tctx;
);
end with TypeloadParse.DisplayInMacroBlock ->
Expand Down

0 comments on commit d2acdf1

Please sign in to comment.