src/Pure/PIDE/document.ML
changeset 42012 2c3fe3cbebae
parent 41674 7da257539a8d
child 42328 61879dc97e72
equal deleted inserted replaced
42011:dee23d63d466 42012:2c3fe3cbebae
   239       let
   239       let
   240         val is_init = is_some (Toplevel.init_of tr);
   240         val is_init = is_some (Toplevel.init_of tr);
   241         val is_proof = Keyword.is_proof (Toplevel.name_of tr);
   241         val is_proof = Keyword.is_proof (Toplevel.name_of tr);
   242         val do_print = not is_init andalso (Toplevel.print_of tr orelse is_proof);
   242         val do_print = not is_init andalso (Toplevel.print_of tr orelse is_proof);
   243 
   243 
   244         val start = start_timing ();
   244         val start = Timing.start ();
   245         val (errs, result) = run (is_init orelse is_proof) (Toplevel.set_print false tr) st;
   245         val (errs, result) = run (is_init orelse is_proof) (Toplevel.set_print false tr) st;
   246         val _ = timing tr (end_timing start);
   246         val _ = timing tr (Timing.result start);
   247         val _ = List.app (Toplevel.error_msg tr) errs;
   247         val _ = List.app (Toplevel.error_msg tr) errs;
   248         val res =
   248         val res =
   249           (case result of
   249           (case result of
   250             NONE => (Toplevel.status tr Markup.failed; (false, st))
   250             NONE => (Toplevel.status tr Markup.failed; (false, st))
   251           | SOME st' =>
   251           | SOME st' =>