src/HOL/Tools/Nitpick/nitpick.ML
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