src/Tools/try.ML
changeset 62505 9e2a65912111
parent 60190 906de96ba68a
child 62519 a564458f94db
equal deleted inserted replaced
62504:f14f17e656a6 62505:9e2a65912111
   112               if auto_time_limit > 0.0 then
   112               if auto_time_limit > 0.0 then
   113                 (case TimeLimit.timeLimit (seconds auto_time_limit) (fn () => tool true state) () of
   113                 (case TimeLimit.timeLimit (seconds auto_time_limit) (fn () => tool true state) () of
   114                   (true, (_, outcome)) => List.app Output.information outcome
   114                   (true, (_, outcome)) => List.app Output.information outcome
   115                 | _ => ())
   115                 | _ => ())
   116               else ()
   116               else ()
   117             end handle exn => if Exn.is_interrupt exn then reraise exn else ()}
   117             end handle exn => if Exn.is_interrupt exn then Exn.reraise exn else ()}
   118       else NONE)
   118       else NONE)
   119 
   119 
   120 
   120 
   121 (* hybrid tool setup *)
   121 (* hybrid tool setup *)
   122 
   122