modified to use Streams module

1988-02-03 14:34:40 +00:00
parent 5d15499683
commit b7b8c9e0ef
2 changed files with 61 additions and 135 deletions
--- a/lang/m2/libm2/InOut.def
+++ b/lang/m2/libm2/InOut.def
@@ -19,6 +19,7 @@ DEFINITION MODULE InOut;
 	   If the filename ends with a '.', append the "defext" extension.
 	   Done := "file was successfully opened".
 	   If open, subsequent output is written to this file.
+	   Files left open at program termination are automatically closed.
 	*)

 	PROCEDURE OpenInputFile(filename: ARRAY OF CHAR);