src/Pure/ML-Systems/smlnj.ML
changeset 18760 97aaecb84afe
parent 18384 fa38cca42913
child 18790 418131f631fc
equal deleted inserted replaced
18759:2f55e3e47355 18760:97aaecb84afe
    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);