--- a/src/Pure/ML-Systems/mosml.ML Sun Jun 05 11:31:29 2005 +0200
+++ b/src/Pure/ML-Systems/mosml.ML Sun Jun 05 11:31:30 2005 +0200
@@ -124,12 +124,6 @@
if Process.system cmd = Process.success then 0 else 1;
-(* file handling *)
-
-(*get time of last modification*)
-fun file_info name = Time.toString (FileSys.modTime name) handle _ => "";
-
-
(* getenv *)
fun getenv var =
--- a/src/Pure/ML-Systems/polyml.ML Sun Jun 05 11:31:29 2005 +0200
+++ b/src/Pure/ML-Systems/polyml.ML Sun Jun 05 11:31:30 2005 +0200
@@ -151,12 +151,6 @@
if OS.Process.isSuccess (OS.Process.system cmd) then 0 else 1;
-(* file handling *)
-
-(*get time of last modification*)
-fun file_info name = Time.toString (OS.FileSys.modTime name) handle _ => "";
-
-
(* getenv *)
fun getenv var =
--- a/src/Pure/ML-Systems/smlnj.ML Sun Jun 05 11:31:29 2005 +0200
+++ b/src/Pure/ML-Systems/smlnj.ML Sun Jun 05 11:31:30 2005 +0200
@@ -180,12 +180,6 @@
val system = OS.Process.system: string -> int;
-(* file handling *)
-
-(*get time of last modification*)
-fun file_info name = Time.toString (OS.FileSys.modTime name) handle _ => "";
-
-
(* getenv *)
fun getenv var =