equal
deleted
inserted
replaced
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 |