equal
deleted
inserted
replaced
450 local |
450 local |
451 |
451 |
452 fun run_process execution_id exec_id process = |
452 fun run_process execution_id exec_id process = |
453 let val group = Future.worker_subgroup () in |
453 let val group = Future.worker_subgroup () in |
454 if Execution.running execution_id exec_id [group] then |
454 if Execution.running execution_id exec_id [group] then |
455 ignore (task_context group Lazy.force_result {strict = true} process) |
455 ignore (task_context group (fn () => Lazy.force_result {strict = true} process) ()) |
456 else () |
456 else () |
457 end; |
457 end; |
458 |
458 |
459 fun ignore_process process = |
459 fun ignore_process process = |
460 Lazy.is_running process orelse Lazy.is_finished process; |
460 Lazy.is_running process orelse Lazy.is_finished process; |