no special treatment for cygwin (this is supposed to be actual cygwin, not win32 polyml within cygwin);
--- a/src/Pure/ML-Systems/polyml.ML Fri Nov 10 00:12:28 2006 +0100
+++ b/src/Pure/ML-Systems/polyml.ML Fri Nov 10 00:13:35 2006 +0100
@@ -25,13 +25,6 @@
end;
-(* cygwin *)
-
-val cygwin_platform = String.isSuffix "cygwin" ml_platform;
-fun if_cygwin f x = if cygwin_platform then f x else ();
-fun unless_cygwin f x = if not cygwin_platform then f x else ();
-
-
(*low-level pointer equality*)
val pointer_eq = Address.wordEq;
@@ -62,15 +55,10 @@
(* bounded time execution *)
-(* FIXME proper implementation available? *)
+(*dummy implementation*)
fun interrupt_timeout time f x =
f x;
-(*
-unless_cygwin
- use "ML-Systems/polyml-interrupt-timeout.ML";
-*)
-
(* prompts *)
@@ -165,8 +153,7 @@
(** OS related **)
-unless_cygwin
- use "ML-Systems/polyml-posix.ML";
+use "ML-Systems/polyml-posix.ML";
(* system command execution *)