src/Pure/PIDE/document.ML
changeset 52513 04210c1bcb90
parent 52512 c4891dbd5161
child 52514 8dd8ab81f1d7
equal deleted inserted replaced
52512:c4891dbd5161 52513:04210c1bcb90
   470 in
   470 in
   471 
   471 
   472 fun update (old_id: version_id) (new_id: version_id) edits state =
   472 fun update (old_id: version_id) (new_id: version_id) edits state =
   473   let
   473   let
   474     val old_version = the_version state old_id;
   474     val old_version = the_version state old_id;
   475     val _ = Time.now ();  (* FIXME odd workaround for polyml-5.4.0/x86_64 *)
       
   476     val new_version = timeit "Document.edit_nodes" (fn () => fold edit_nodes edits old_version);
   475     val new_version = timeit "Document.edit_nodes" (fn () => fold edit_nodes edits old_version);
   477 
   476 
   478     val nodes = nodes_of new_version;
   477     val nodes = nodes_of new_version;
   479     val is_required = make_required nodes;
   478     val is_required = make_required nodes;
   480 
   479