src/Pure/Isar/toplevel.ML
changeset 30571 c12484a27367
parent 30460 c999618d225e
child 30618 046f4f986fb5
equal deleted inserted replaced
30570:8fac7efcce0a 30571:c12484a27367
   645 
   645 
   646 (* apply transitions *)
   646 (* apply transitions *)
   647 
   647 
   648 local
   648 local
   649 
   649 
   650 fun app int (tr as Transition {trans, pos, int_only, print, no_timing, ...}) =
   650 fun app int (tr as Transition {trans, pos, print, no_timing, ...}) =
   651   setmp_thread_position tr (fn state =>
   651   setmp_thread_position tr (fn state =>
   652     let
   652     let
   653       val _ = if not int andalso int_only then warning (command_msg "Interactive-only " tr) else ();
       
   654 
       
   655       fun do_timing f x = (warning (command_msg "" tr); timeap f x);
   653       fun do_timing f x = (warning (command_msg "" tr); timeap f x);
   656       fun do_profiling f x = profile (! profiling) f x;
   654       fun do_profiling f x = profile (! profiling) f x;
   657 
   655 
   658       val (result, status) =
   656       val (result, status) =
   659          state |> (apply_trans int pos trans
   657          state |> (apply_trans int pos trans