src/Pure/Isar/isar_document.ML
changeset 29487 06f4bb9fdb85
parent 29484 15863d782ae3
child 29489 5dfe03f423c4
equal deleted inserted replaced
29486:23a26d17adc0 29487:06f4bb9fdb85
   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;