# HG changeset patch
# User wenzelm
# Date 1290868595 -3600
# Node ID 0e7c2957fc1d338392cfe6c0af29a4d2b2912bdb
# Parent  b07a0dbc8a385b33ed4c836fc9ca325e9a48646e
tuned;

diff -r b07a0dbc8a38 -r 0e7c2957fc1d src/Pure/General/file.ML
--- a/src/Pure/General/file.ML	Sat Nov 27 15:28:00 2010 +0100
+++ b/src/Pure/General/file.ML	Sat Nov 27 15:36:35 2010 +0100
@@ -67,9 +67,6 @@
 
 val rm = OS.FileSys.remove o platform_path;
 
-fun is_dir path =
-  the_default false (try OS.FileSys.isDir (platform_path path));
-
 
 (* open files *)
 
@@ -127,6 +124,9 @@
     SOME ids => is_equal (OS.FileSys.compare ids)
   | NONE => false);
 
+fun is_dir path =
+  the_default false (try OS.FileSys.isDir (platform_path path));
+
 fun copy src dst =
   if eq (src, dst) then ()
   else