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