equal
deleted
inserted
replaced
436 in Position.reports (maps (blob_reports pos) blobs_digests) end; |
436 in Position.reports (maps (blob_reports pos) blobs_digests) end; |
437 in tokens end) ()); |
437 in tokens end) ()); |
438 val commands' = |
438 val commands' = |
439 Inttab.update_new (command_id, (name, blobs_digests, blobs_index, span)) commands |
439 Inttab.update_new (command_id, (name, blobs_digests, blobs_index, span)) commands |
440 handle Inttab.DUP dup => err_dup "command" dup; |
440 handle Inttab.DUP dup => err_dup "command" dup; |
441 val _ = |
|
442 Position.setmp_thread_data (Position.id_only id) |
|
443 (fn () => Output.status [Markup.markup_only Markup.accepted]) (); |
|
444 in (versions, blobs, commands', execution) end); |
441 in (versions, blobs, commands', execution) end); |
445 |
442 |
446 fun the_command (State {commands, ...}) command_id = |
443 fun the_command (State {commands, ...}) command_id = |
447 (case Inttab.lookup commands command_id of |
444 (case Inttab.lookup commands command_id of |
448 NONE => err_undef "command" command_id |
445 NONE => err_undef "command" command_id |