The temporary package the reload case writes is removed again
This commit is contained in:
parent
dd3611f97d
commit
e903e220fb
@ -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
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user