equal
deleted
inserted
replaced
592 |
592 |
593 fun command_exception int tr st = |
593 fun command_exception int tr st = |
594 (case transition int tr st of |
594 (case transition int tr st of |
595 (st', NONE) => st' |
595 (st', NONE) => st' |
596 | (_, SOME (exn, info)) => |
596 | (_, SOME (exn, info)) => |
597 if Exn.is_interrupt exn then reraise exn |
597 if Exn.is_interrupt exn then Exn.reraise exn |
598 else raise Runtime.EXCURSION_FAIL (exn, info)); |
598 else raise Runtime.EXCURSION_FAIL (exn, info)); |
599 |
599 |
600 val command = command_exception false; |
600 val command = command_exception false; |
601 |
601 |
602 |
602 |