[MLton-commit] r7514

[Wesley Terpstra]

Symlinks are files too.


----------------------------------------------------------------------

U   mlton/trunk/lib/mlton/basic/dir.sml

----------------------------------------------------------------------

Modified: mlton/trunk/lib/mlton/basic/dir.sml
===================================================================
--- mlton/trunk/lib/mlton/basic/dir.sml	2011-03-20 17:10:46 UTC (rev 7513)
+++ mlton/trunk/lib/mlton/basic/dir.sml	2011-03-20 19:40:40 UTC (rev 7514)
@@ -56,6 +56,7 @@
    fold (d, ([], []), fn (x, (dirs, files)) =>
       let
          val file = OS.Path.joinDirFile { dir=d, file=x }
+         val file = FS.realPath file
       in
          if FS.isLink file
             then (dirs, files)