src/Pure/PIDE/command.ML
changeset 57844 ae3eac418c5f
parent 57839 d5b0fa6f1f7a
child 57905 c0c5652e796e
equal deleted inserted replaced
57843:d8966c09025c 57844:ae3eac418c5f
   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}