removed file_info (now in Pure/General/file.ML);
authorwenzelm
Sun, 05 Jun 2005 11:31:30 +0200
changeset 16266 7a6616be8712
parent 16265 ee2497cde564
child 16267 0773b17922d8
removed file_info (now in Pure/General/file.ML);
src/Pure/ML-Systems/mosml.ML
src/Pure/ML-Systems/polyml.ML
src/Pure/ML-Systems/smlnj.ML
--- 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 =