equal
deleted
inserted
replaced
173 |
173 |
174 (* document editing *) |
174 (* document editing *) |
175 |
175 |
176 fun update_state tr state = Future.fork_deps [state] (fn () => |
176 fun update_state tr state = Future.fork_deps [state] (fn () => |
177 (case Future.join state of NONE => NONE | SOME st => Toplevel.run_command tr st)); |
177 (case Future.join state of NONE => NONE | SOME st => Toplevel.run_command tr st)); |
178 |
|
179 fun update_entry (id, state_id) entries = |
|
180 Symtab.map_entry |
|
181 |
178 |
182 fun update_states old_document new_document = |
179 fun update_states old_document new_document = |
183 let |
180 let |
184 val Document {entries = old_entries, ...} = old_document; |
181 val Document {entries = old_entries, ...} = old_document; |
185 val Document {entries = new_entries, ...} = new_document; |
182 val Document {entries = new_entries, ...} = new_document; |