equal
deleted
inserted
replaced
1057 in (outcome_code, !state_ref) end |
1057 in (outcome_code, !state_ref) end |
1058 |
1058 |
1059 (* Give the inner timeout a chance. *) |
1059 (* Give the inner timeout a chance. *) |
1060 val timeout_bonus = seconds 1.0 |
1060 val timeout_bonus = seconds 1.0 |
1061 |
1061 |
1062 fun pick_nits_in_term state (params as {debug, timeout, expect, ...}) mode i n |
1062 fun pick_nits_in_term state (params as {timeout, expect, ...}) mode i n step |
1063 step subst def_assm_ts nondef_assm_ts orig_t = |
1063 subst def_assm_ts nondef_assm_ts orig_t = |
1064 let |
1064 let |
1065 val print_nt = if is_mode_nt mode then Output.urgent_message else K () |
1065 val print_nt = if is_mode_nt mode then Output.urgent_message else K () |
1066 val print_t = if mode = TPTP then Output.urgent_message else K () |
1066 val print_t = if mode = TPTP then Output.urgent_message else K () |
1067 in |
1067 in |
1068 if getenv "KODKODI" = "" then |
1068 if getenv "KODKODI" = "" then |