equal
deleted
inserted
replaced
369 val node' = node |
369 val node' = node |
370 |> fold update_entry assigns |
370 |> fold update_entry assigns |
371 |> set_result result; |
371 |> set_result result; |
372 in ((assigns, execs, [(name, node')]), node') end) |
372 in ((assigns, execs, [(name, node')]), node') end) |
373 end)) |
373 end)) |
374 |> Future.join_results |> Par_Exn.release_all |> map #1; |
374 |> Future.joins |> map #1; |
375 |
375 |
376 val state' = state |
376 val state' = state |
377 |> fold (fold define_exec o #2) updates |
377 |> fold (fold define_exec o #2) updates |
378 |> define_version new_id (fold (fold put_node o #3) updates new_version); |
378 |> define_version new_id (fold (fold put_node o #3) updates new_version); |
379 |
379 |