src/Pure/Isar/toplevel.ML
changeset 62505 9e2a65912111
parent 62239 6ee95b93fbed
child 62663 bea354f6ff21
equal deleted inserted replaced
62504:f14f17e656a6 62505:9e2a65912111
   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