--- a/src/Pure/ML-Systems/polyml_old_basis.ML Fri Oct 03 21:06:37 2008 +0200
+++ b/src/Pure/ML-Systems/polyml_old_basis.ML Fri Oct 03 21:06:38 2008 +0200
@@ -21,17 +21,6 @@
val full = all;
end;
-structure Posix =
-struct
- open Posix;
- structure IO =
- struct
- open IO;
- val mkTextReader = mkReader;
- val mkTextWriter = mkWriter;
- end;
-end;
-
structure TextIO =
struct
open TextIO;
--- a/src/Pure/ML-Systems/proper_int.ML Fri Oct 03 21:06:37 2008 +0200
+++ b/src/Pure/ML-Systems/proper_int.ML Fri Oct 03 21:06:38 2008 +0200
@@ -193,18 +193,3 @@
fun fmt a b = Time.fmt (dest_int a) b;
end;
-
-(* Posix *)
-
-structure Posix =
-struct
- open Posix;
- structure IO =
- struct
- open IO;
- fun mkTextWriter {appendMode, chunkSize, fd, initBlkMode, name} =
- IO.mkTextWriter {appendMode = appendMode, chunkSize = dest_int chunkSize,
- fd = fd, initBlkMode = initBlkMode, name = name};
- end;
-end;
-