Force output flush and nonzero return code on assertion failure in Files.Mod

This commit is contained in:
David Brown 2016-11-27 16:48:03 +00:00
parent 7279aa91be
commit 6a7cba23a7
2 changed files with 16 additions and 11 deletions

View file

@ -148,7 +148,7 @@ MODULE Modules; (* jt 6.1.96 *)
errstring("Assertion failure.");
IF code # 0 THEN errstring(" ASSERT code "); errint(code); errstring("."); END;
errstring(Platform.NL);
Platform.Exit(code);
IF code > 0 THEN Platform.Exit(code) ELSE Platform.Exit(-1) END;
END AssertFail;
END Modules.