[MLton-commit] r6496

[Vesa Karvonen]

Fixed comments.
----------------------------------------------------------------------

U   mltonlib/trunk/org/mlton/vesak/use-lib/unstable/detail/ml/alice/workarounds.sml

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

Modified: mltonlib/trunk/org/mlton/vesak/use-lib/unstable/detail/ml/alice/workarounds.sml
===================================================================
--- mltonlib/trunk/org/mlton/vesak/use-lib/unstable/detail/ml/alice/workarounds.sml	2008-03-18 05:52:58 UTC (rev 6495)
+++ mltonlib/trunk/org/mlton/vesak/use-lib/unstable/detail/ml/alice/workarounds.sml	2008-03-20 05:08:01 UTC (rev 6496)
@@ -17,13 +17,13 @@
          fun after (th, ef) =
              try (th, fn x => (ef () ; x), fn e => (ef () ; raise e))
       in
-         (* WARNING: Totally ignores links. *)
+         (* WARNING: Tests always for read access only. *)
          fun access (p, _) =
              try (fn () => TextIO.openIn p,
                   fn s => (TextIO.closeIn s ; true),
                   fn _ => false)
 
-         (* WARNING: Tests always for only read access only. *)
+         (* WARNING: Totally ignores links. *)
          fun fullPath p =
              case getDir ()
               of cwd =>