[MLton-commit] r7159

[Matthew Fluet]

All uses of protect are guarded by 'not useWindowsProcess'.
----------------------------------------------------------------------

U   mlton/trunk/basis-library/mlton/process.sml

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

Modified: mlton/trunk/basis-library/mlton/process.sml
===================================================================
--- mlton/trunk/basis-library/mlton/process.sml	2009-06-17 17:05:47 UTC (rev 7158)
+++ mlton/trunk/basis-library/mlton/process.sml	2009-06-17 18:05:42 UTC (rev 7159)
@@ -193,13 +193,11 @@
       end
 
       fun ('a, 'b) protect (f: 'a -> 'b, x: 'a): 'b =
-         if useWindowsProcess then f x
-         else
-            let
-               val () = Mask.block Mask.all
-            in
-               DynamicWind.wind (fn () => f x, fn () => Mask.unblock Mask.all)
-            end
+         let
+            val () = Mask.block Mask.all
+         in
+            DynamicWind.wind (fn () => f x, fn () => Mask.unblock Mask.all)
+         end
 
       local
          fun reap reapFn (T {pid, status, stderr, stdin, stdout, ...}) =