src/Pure/PIDE/document.ML
changeset 44196 3588f71abb50
parent 44186 806f0ec1a43d
child 44197 458573968568
     1.1 --- a/src/Pure/PIDE/document.ML	Sun Aug 14 08:45:38 2011 -0700
     1.2 +++ b/src/Pure/PIDE/document.ML	Mon Aug 15 14:54:36 2011 +0200
     1.3 @@ -157,7 +157,7 @@
     1.4  abstype state = State of
     1.5   {versions: version Inttab.table,  (*version_id -> document content*)
     1.6    commands: Toplevel.transition future Inttab.table,  (*command_id -> transition (future parsing)*)
     1.7 -  execs: (bool * Toplevel.state) lazy Inttab.table,  (*exec_id -> execution process*)
     1.8 +  execs: Toplevel.state lazy Inttab.table,  (*exec_id -> execution process*)
     1.9    execution: unit future list}  (*global execution process*)
    1.10  with
    1.11  
    1.12 @@ -170,7 +170,7 @@
    1.13  val init_state =
    1.14    make_state (Inttab.make [(no_id, empty_version)],
    1.15      Inttab.make [(no_id, Future.value Toplevel.empty)],
    1.16 -    Inttab.make [(no_id, Lazy.value (true, Toplevel.toplevel))],
    1.17 +    Inttab.make [(no_id, Lazy.value Toplevel.toplevel)],
    1.18      []);
    1.19  
    1.20  
    1.21 @@ -229,7 +229,7 @@
    1.22      val last = get_last (node_of (the_version state version_id) name);
    1.23      val st =
    1.24        (case Lazy.peek (the_exec state last) of
    1.25 -        SOME result => #2 (Exn.release result)
    1.26 +        SOME result => Exn.release result
    1.27        | NONE => error ("Unfinished execution for theory " ^ quote name ^ Position.str_of pos));
    1.28    in Toplevel.end_theory pos st end;
    1.29  
    1.30 @@ -300,12 +300,12 @@
    1.31      val _ = List.app (Toplevel.error_msg tr) errs;
    1.32    in
    1.33      (case result of
    1.34 -      NONE => (Toplevel.status tr Markup.failed; (false, st))
    1.35 +      NONE => (Toplevel.status tr Markup.failed; st)
    1.36      | SOME st' =>
    1.37         (Toplevel.status tr Markup.finished;
    1.38          proof_status tr st';
    1.39          if do_print then async_state tr st' else ();
    1.40 -        (true, st')))
    1.41 +        st'))
    1.42    end;
    1.43  
    1.44  end;
    1.45 @@ -332,7 +332,7 @@
    1.46      val exec' =
    1.47        Lazy.lazy (fn () =>
    1.48          let
    1.49 -          val st = #2 (Lazy.force exec);
    1.50 +          val st = Lazy.force exec;
    1.51            val exec_tr = Toplevel.put_id (print_id exec_id') (Future.join future_tr);
    1.52          in run_command node_info exec_tr st end);
    1.53      val state' = define_exec exec_id' exec' state;