Close old symbol file before reopening it to rewrite it.

This commit is contained in:
David Brown 2016-10-28 12:21:34 +01:00
parent c3515d8e4b
commit d906629d2a

View file

@ -614,6 +614,7 @@ MODULE OPM; (* RC 6.3.89 / 28.6.89, J.Templ 10.7.89 / 22.7.96 *)
END SymRLReal; END SymRLReal;
PROCEDURE CloseOldSym*; PROCEDURE CloseOldSym*;
BEGIN Files.Close(Files.Base(oldSF))
END CloseOldSym; END CloseOldSym;
PROCEDURE OldSym*(VAR modName: ARRAY OF CHAR; VAR done: BOOLEAN); PROCEDURE OldSym*(VAR modName: ARRAY OF CHAR; VAR done: BOOLEAN);