equal
deleted
inserted
replaced
316 let |
316 let |
317 val id = Document_ID.print command_id; |
317 val id = Document_ID.print command_id; |
318 val span = |
318 val span = |
319 Lazy.lazy (fn () => |
319 Lazy.lazy (fn () => |
320 Position.setmp_thread_data (Position.id_only id) |
320 Position.setmp_thread_data (Position.id_only id) |
321 (fn () => Outer_Syntax.parse_tokens (Keyword.get_lexicons ()) (Position.id id) text) ()); |
321 (fn () => Outer_Syntax.scan (Keyword.get_lexicons ()) (Position.id id) text) ()); |
322 val _ = |
322 val _ = |
323 Position.setmp_thread_data (Position.id_only id) |
323 Position.setmp_thread_data (Position.id_only id) |
324 (fn () => Output.status (Markup.markup_only Markup.accepted)) (); |
324 (fn () => Output.status (Markup.markup_only Markup.accepted)) (); |
325 val commands' = |
325 val commands' = |
326 Inttab.update_new (command_id, (name, command_blobs, span)) commands |
326 Inttab.update_new (command_id, (name, command_blobs, span)) commands |