src/HOL/Tools/Nitpick/nitpick.ML
changeset 50201 c26369c9eda6
parent 50163 c62ce309dc26
child 50212 4fb06c22c5ec
equal deleted inserted replaced
50200:2c94c065564e 50201:c26369c9eda6
   243     val state_ref = Unsynchronized.ref state
   243     val state_ref = Unsynchronized.ref state
   244     fun pprint print =
   244     fun pprint print =
   245       if mode = Auto_Try then
   245       if mode = Auto_Try then
   246         Unsynchronized.change state_ref o Proof.goal_message o K
   246         Unsynchronized.change state_ref o Proof.goal_message o K
   247         o Pretty.chunks o cons (Pretty.str "") o single
   247         o Pretty.chunks o cons (Pretty.str "") o single
   248         o Pretty.mark Isabelle_Markup.intensify
   248         o Pretty.mark Markup.intensify
   249       else
   249       else
   250         print o Pretty.string_of
   250         print o Pretty.string_of
   251     val pprint_a = pprint Output.urgent_message
   251     val pprint_a = pprint Output.urgent_message
   252     fun pprint_nt f = () |> is_mode_nt mode ? pprint Output.urgent_message o f
   252     fun pprint_nt f = () |> is_mode_nt mode ? pprint Output.urgent_message o f
   253     fun pprint_v f = () |> verbose ? pprint Output.urgent_message o f
   253     fun pprint_v f = () |> verbose ? pprint Output.urgent_message o f