no special treatment for cygwin (this is supposed to be actual cygwin, not win32 polyml within cygwin);
authorwenzelm
Fri, 10 Nov 2006 00:13:35 +0100
changeset 21281 0767e7dad549
parent 21280 b4aa7daa506b
child 21282 dd647b4d7952
no special treatment for cygwin (this is supposed to be actual cygwin, not win32 polyml within cygwin);
src/Pure/ML-Systems/polyml.ML
--- 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 *)