equal
deleted
inserted
replaced
31 end; |
31 end; |
32 |
32 |
33 val await_cancellation = Document.cancel_execution state; |
33 val await_cancellation = Document.cancel_execution state; |
34 val (updates, state') = Document.edit old_id new_id edits state; |
34 val (updates, state') = Document.edit old_id new_id edits state; |
35 val _ = await_cancellation (); |
35 val _ = await_cancellation (); |
|
36 val _ = Document.join_commands state'; |
36 val _ = |
37 val _ = |
37 Output.status (Markup.markup (Markup.assign new_id) |
38 Output.status (Markup.markup (Markup.assign new_id) |
38 (implode (map (Markup.markup_only o Markup.edit) updates))); |
39 (implode (map (Markup.markup_only o Markup.edit) updates))); |
39 val state'' = Document.execute new_id state'; |
40 val state'' = Document.execute new_id state'; |
40 in state'' end)); |
41 in state'' end)); |