equal
deleted
inserted
replaced
202 else if Keyword.is_proof name then Toplevel.reset_proof st0 |
202 else if Keyword.is_proof name then Toplevel.reset_proof st0 |
203 else NONE; |
203 else NONE; |
204 in |
204 in |
205 (case res of |
205 (case res of |
206 NONE => st0 |
206 NONE => st0 |
207 | SOME st => (warning (Toplevel.type_error tr st0 ^ " -- resetting state"); st)) |
207 | SOME st => (Output.error_message (Toplevel.type_error tr st0 ^ " -- using reset state"); st)) |
208 end) (); |
208 end) (); |
209 |
209 |
210 fun run int tr st = |
210 fun run int tr st = |
211 if Goal.future_enabled 1 andalso Keyword.is_diag (Toplevel.name_of tr) then |
211 if Goal.future_enabled 1 andalso Keyword.is_diag (Toplevel.name_of tr) then |
212 (Execution.fork {name = "Toplevel.diag", pos = Toplevel.pos_of tr, pri = ~1} |
212 (Execution.fork {name = "Toplevel.diag", pos = Toplevel.pos_of tr, pri = ~1} |