[MLton-commit] r6618

[Matthew Fluet]

Drop archived version of isolate using MLtonThread operations.

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

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

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

Modified: mlton/trunk/basis-library/mlton/cont.sml
===================================================================
--- mlton/trunk/basis-library/mlton/cont.sml	2008-05-10 11:42:56 UTC (rev 6617)
+++ mlton/trunk/basis-library/mlton/cont.sml	2008-05-10 11:43:04 UTC (rev 6618)
@@ -101,15 +101,4 @@
    end
 end
 
-val isolate: ('a -> unit) -> 'a t =
-   fn (f: 'a -> unit) =>
-   fn (v: unit -> 'a) =>
-   let
-      val th = (f (v ()) ; Exit.topLevelSuffix ())
-               handle exn => MLtonExn.topLevelHandler exn
-      val t = MLtonThread.prepare (MLtonThread.new th, ())
-   in
-      MLtonThread.switch (fn _ => t)
-   end
-
 end