equal
deleted
inserted
replaced
470 in |
470 in |
471 |
471 |
472 fun update (old_id: version_id) (new_id: version_id) edits state = |
472 fun update (old_id: version_id) (new_id: version_id) edits state = |
473 let |
473 let |
474 val old_version = the_version state old_id; |
474 val old_version = the_version state old_id; |
475 val _ = Time.now (); (* FIXME odd workaround for polyml-5.4.0/x86_64 *) |
|
476 val new_version = timeit "Document.edit_nodes" (fn () => fold edit_nodes edits old_version); |
475 val new_version = timeit "Document.edit_nodes" (fn () => fold edit_nodes edits old_version); |
477 |
476 |
478 val nodes = nodes_of new_version; |
477 val nodes = nodes_of new_version; |
479 val is_required = make_required nodes; |
478 val is_required = make_required nodes; |
480 |
479 |