avoid ambiguities on native Windows, such as / vs. /cygdrive/c/cygwin;
authorwenzelm
Wed, 19 Aug 2015 16:21:10 +0200
changeset 60975 5f3d6e16ea78
parent 60973 d94f3afd69b6
child 60976 0a8c719d8c1f
avoid ambiguities on native Windows, such as / vs. /cygdrive/c/cygwin;
src/Pure/Thy/thy_info.ML
--- a/src/Pure/Thy/thy_info.ML	Wed Aug 19 15:40:59 2015 +0200
+++ b/src/Pure/Thy/thy_info.ML	Wed Aug 19 16:21:10 2015 +0200
@@ -291,7 +291,8 @@
     val name = Path.implode (Path.base path);
     val node_name = File.full_path dir (Resources.thy_path path);
     fun check_entry (Task (node_name', _, _)) =
-          if node_name = node_name' then ()
+          if op = (apply2 File.platform_path (node_name, node_name'))
+          then ()
           else
             error ("Incoherent imports for theory " ^ quote name ^
               Position.here require_pos ^ ":\n" ^