src/Pure/Thy/thy_info.ML
changeset 66377 753eb5b83370
parent 66371 6ce1afc01040
child 66711 80fa1401cf76
equal deleted inserted replaced
66372:911f950510e0 66377:753eb5b83370
   154 
   154 
   155 fun join_theory (Result {theory, exec_id, ...}) =
   155 fun join_theory (Result {theory, exec_id, ...}) =
   156   let
   156   let
   157     val _ = Execution.join [exec_id];
   157     val _ = Execution.join [exec_id];
   158     val res = Exn.capture Thm.consolidate_theory theory;
   158     val res = Exn.capture Thm.consolidate_theory theory;
   159     val errs = maps Task_Queue.group_status (Execution.peek exec_id);
   159     val exns = maps Task_Queue.group_status (Execution.peek exec_id);
   160   in res :: map Exn.Exn errs end;
   160   in res :: map Exn.Exn exns end;
   161 
   161 
   162 datatype task =
   162 datatype task =
   163   Task of Path.T * string list * (theory list -> result) |
   163   Task of Path.T * string list * (theory list -> result) |
   164   Finished of theory;
   164   Finished of theory;
   165 
   165