[MLton-commit] r6266

Matthew Fluet fluet at mlton.org
Fri Dec 14 13:53:15 PST 2007


Formatting
----------------------------------------------------------------------

U   mlton/trunk/basis-library/posix/io.sml

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

Modified: mlton/trunk/basis-library/posix/io.sml
===================================================================
--- mlton/trunk/basis-library/posix/io.sml	2007-12-14 17:57:57 UTC (rev 6265)
+++ mlton/trunk/basis-library/posix/io.sml	2007-12-14 21:53:15 UTC (rev 6266)
@@ -289,13 +289,13 @@
                fun blockWrap f x =
                   (ensureOpen ();
                    if !blocking then () else blockingOn ();
-                      f x)
+                   f x)
                fun noBlockWrap f x =
                   (ensureOpen ();
                    if !blocking then blockingOff () else ();
-                      (SOME (f x)
-                       handle (e as PosixError.SysErr (_, SOME cause)) =>
-                          if cause = PosixError.again then NONE else raise e))
+                   (SOME (f x)
+                    handle (e as PosixError.SysErr (_, SOME cause)) =>
+                       if cause = PosixError.again then NONE else raise e))
                val close = 
                   fn () => if !closed then () else (closed := true; close fd)
                val avail = 




More information about the MLton-commit mailing list