equal
deleted
inserted
replaced
224 if malformed then |
224 if malformed then |
225 {failed = true, malformed = malformed, command = tr, state = Toplevel.toplevel} |
225 {failed = true, malformed = malformed, command = tr, state = Toplevel.toplevel} |
226 else |
226 else |
227 let |
227 let |
228 val malformed' = Toplevel.is_malformed tr; |
228 val malformed' = Toplevel.is_malformed tr; |
229 val is_init = Toplevel.is_init tr; |
|
230 val is_proof = Keyword.is_proof (Toplevel.name_of tr); |
|
231 |
229 |
232 val _ = Multithreading.interrupted (); |
230 val _ = Multithreading.interrupted (); |
233 val _ = status tr Markup.running; |
231 val _ = status tr Markup.running; |
234 val (errs1, result) = run (is_init orelse is_proof) tr st; |
232 val (errs1, result) = run true tr st; |
235 val errs2 = (case result of NONE => [] | SOME st' => check_cmts span tr st'); |
233 val errs2 = (case result of NONE => [] | SOME st' => check_cmts span tr st'); |
236 val errs = errs1 @ errs2; |
234 val errs = errs1 @ errs2; |
237 val _ = List.app (Future.error_message (Toplevel.pos_of tr)) errs; |
235 val _ = List.app (Future.error_message (Toplevel.pos_of tr)) errs; |
238 in |
236 in |
239 (case result of |
237 (case result of |