diff -r 42c94393d39e -r 3198f547f8af src/Pure/ML-Systems/mlworks.ML --- a/src/Pure/ML-Systems/mlworks.ML Thu Feb 04 18:15:01 1999 +0100 +++ b/src/Pure/ML-Systems/mlworks.ML Thu Feb 04 18:15:20 1999 +0100 @@ -124,9 +124,8 @@ (* file handling *) -(*get time of last modification; if file doesn't exist return an empty string*) -fun file_info "" = "" (* FIXME !? *) - | file_info name = Time.toString (OS.FileSys.modTime name) handle _ => ""; +(*get time of last modification*) +fun file_info name = Time.toString (OS.FileSys.modTime name) handle _ => ""; (* getenv *)