equal
deleted
inserted
replaced
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); |