| changeset 33561 | ab01b72715ef |
| parent 33558 | a2db56854b83 |
| child 33566 | 1c62ac4ef6d1 |
--- a/src/HOL/Tools/Nitpick/nitpick.ML Wed Oct 28 11:55:48 2009 +0100 +++ b/src/HOL/Tools/Nitpick/nitpick.ML Wed Oct 28 17:43:43 2009 +0100 @@ -187,7 +187,7 @@ val pprint = if auto then Unsynchronized.change state_ref o Proof.goal_message o K - o curry Pretty.blk 0 o cons (Pretty.str "") o single + o Pretty.chunks o cons (Pretty.str "") o single o Pretty.mark Markup.hilite else priority o Pretty.string_of