equal
deleted
inserted
replaced
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' => |