src/Pure/ML-Systems/polyml.ML
changeset 18814 1a904aebfef0
parent 18760 97aaecb84afe
child 21281 0767e7dad549
equal deleted inserted replaced
18813:fc35dcc2558b 18814:1a904aebfef0
    60 use "ML-Systems/cpu-timer-basis.ML";
    60 use "ML-Systems/cpu-timer-basis.ML";
    61 
    61 
    62 
    62 
    63 (* bounded time execution *)
    63 (* bounded time execution *)
    64 
    64 
    65 (* FIXME proper implementation for Cygwin available? *)
    65 (* FIXME proper implementation available? *)
    66 fun interrupt_timeout time f x =
    66 fun interrupt_timeout time f x =
    67   f x;
    67   f x;
    68 
    68 
       
    69 (*
    69 unless_cygwin
    70 unless_cygwin
    70   use "ML-Systems/polyml-interrupt-timeout.ML";
    71   use "ML-Systems/polyml-interrupt-timeout.ML";
       
    72 *)
    71 
    73 
    72 
    74 
    73 (* prompts *)
    75 (* prompts *)
    74 
    76 
    75 fun ml_prompts p1 p2 = (PolyML.Compiler.prompt1 := p1; PolyML.Compiler.prompt2 := p2);
    77 fun ml_prompts p1 p2 = (PolyML.Compiler.prompt1 := p1; PolyML.Compiler.prompt2 := p2);