src/Pure/PIDE/command.ML
changeset 52605 a2a805549c74
parent 52604 ff2f0818aebc
child 52606 0d68d108d7e0
     1.1 --- a/src/Pure/PIDE/command.ML	Thu Jul 11 23:24:40 2013 +0200
     1.2 +++ b/src/Pure/PIDE/command.ML	Fri Jul 12 11:07:02 2013 +0200
     1.3 @@ -20,7 +20,7 @@
     1.4    type exec = eval * print list
     1.5    val no_exec: exec
     1.6    val exec_ids: exec option -> Document_ID.exec list
     1.7 -  val exec: Exec.context -> exec -> unit
     1.8 +  val exec: Execution.context -> exec -> unit
     1.9  end;
    1.10  
    1.11  structure Command: COMMAND =
    1.12 @@ -51,10 +51,10 @@
    1.13          (fn Result res => SOME (res, Result res)
    1.14            | expr as Expr (exec_id, e) =>
    1.15                uninterruptible (fn restore_attributes => fn () =>
    1.16 -                if Exec.running context exec_id then
    1.17 +                if Execution.running context exec_id then
    1.18                    let
    1.19                      val res = Exn.capture (restore_attributes e) ();
    1.20 -                    val _ = Exec.finished exec_id (not (Exn.is_interrupt_exn res));
    1.21 +                    val _ = Execution.finished exec_id (not (Exn.is_interrupt_exn res));
    1.22                    in SOME (res, Result res) end
    1.23                  else SOME (Exn.interrupt_exn, expr)) ())
    1.24        |> (fn NONE => error "Concurrent execution attempt" | SOME res => res))
    1.25 @@ -113,7 +113,7 @@
    1.26  val eval_result_state = #state o eval_result;
    1.27  
    1.28  fun eval_same (Eval {exec_id, ...}, Eval {exec_id = exec_id', ...}) =
    1.29 -  exec_id = exec_id' andalso Exec.is_stable exec_id;
    1.30 +  exec_id = exec_id' andalso Execution.is_stable exec_id;
    1.31  
    1.32  local
    1.33  
    1.34 @@ -198,7 +198,7 @@
    1.35      List.app (Future.error_msg (Toplevel.pos_of tr)) (ML_Compiler.exn_messages_ids exn);
    1.36  
    1.37  fun print_persistent (Print {persistent, ...}) = persistent;
    1.38 -fun print_stable (Print {exec_id, ...}) = Exec.is_stable exec_id;
    1.39 +fun print_stable (Print {exec_id, ...}) = Execution.is_stable exec_id;
    1.40  fun print_eq (Print {exec_id, ...}, Print {exec_id = exec_id', ...}) = exec_id = exec_id';
    1.41  
    1.42  in