src/HOL/Tools/Nitpick/nitpick.ML
changeset 55539 0819931d652d
parent 54816 10d48c2a3e32
child 55888 cac1add157e8
equal deleted inserted replaced
55538:6a5986170c1d 55539:0819931d652d
  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