The temporary package the reload case writes is removed again

This commit is contained in:
Joseph Ferano 2026-09-13 17:41:18 +07:00
parent dd3611f97d
commit e903e220fb

View File

@ -295,6 +295,12 @@ let () =
fail "a form evaluated after an edited package reloaded used the old macro"
| exception Loc.Error { Loc.dmsg = m; _ } ->
fail "a form evaluated after an edited package reloaded: %s" m);
List.iter
(fun f -> try Sys.remove f with Sys_error _ -> ())
[ Filename.concat pkg "p.flan"; entry ];
List.iter
(fun d -> try Unix.rmdir d with Unix.Unix_error _ -> ())
[ pkg; tmp ];
(* A form typed into a file that is *imported as a package* has to be
qualified the way the import qualified it, or it splices as a brand-new