equal
deleted
inserted
replaced
478 plural_s num_facts ^ " for " ^ string_from_time iter_timeout ^ "..." |
478 plural_s num_facts ^ " for " ^ string_from_time iter_timeout ^ "..." |
479 |> Output.urgent_message |
479 |> Output.urgent_message |
480 else |
480 else |
481 () |
481 () |
482 val {outcome, used_facts, run_time_in_msecs} = |
482 val {outcome, used_facts, run_time_in_msecs} = |
483 TimeLimit.timeLimit iter_timeout |
483 SMT_Solver.smt_filter remote iter_timeout state facts i |
484 (SMT_Solver.smt_filter remote iter_timeout state facts) i |
|
485 handle TimeLimit.TimeOut => |
|
486 {outcome = SOME SMT_Failure.Time_Out, used_facts = [], |
|
487 run_time_in_msecs = NONE} |
|
488 val _ = |
484 val _ = |
489 if verbose andalso is_some outcome then |
485 if verbose andalso is_some outcome then |
490 "SMT outcome: " ^ SMT_Failure.string_of_failure ctxt (the outcome) |
486 "SMT outcome: " ^ SMT_Failure.string_of_failure ctxt (the outcome) |
491 |> Output.urgent_message |
487 |> Output.urgent_message |
492 else |
488 else |