equal
deleted
inserted
replaced
55 (case #version_id (Compiler.version) of |
55 (case #version_id (Compiler.version) of |
56 [110, x] => if x >= 44 |
56 [110, x] => if x >= 44 |
57 then use "ML-Systems/cpu-timer-basis.ML" |
57 then use "ML-Systems/cpu-timer-basis.ML" |
58 else use "ML-Systems/cpu-timer-gc.ML" |
58 else use "ML-Systems/cpu-timer-gc.ML" |
59 | _ => use "ML-Systems/cpu-timer-gc.ML"); |
59 | _ => use "ML-Systems/cpu-timer-gc.ML"); |
|
60 |
|
61 |
|
62 (* bounded time execution *) |
|
63 |
|
64 use "ML-Systems/smlnj-interrupt-timeout.ML"; |
60 |
65 |
61 |
66 |
62 (*prompts*) |
67 (*prompts*) |
63 fun ml_prompts p1 p2 = |
68 fun ml_prompts p1 p2 = |
64 (Compiler.Control.primaryPrompt := p1; Compiler.Control.secondaryPrompt := p2); |
69 (Compiler.Control.primaryPrompt := p1; Compiler.Control.secondaryPrompt := p2); |