--- a/src/Pure/General/pretty.ML Tue Jun 24 19:43:22 2008 +0200
+++ b/src/Pure/General/pretty.ML Tue Jun 24 21:44:52 2008 +0200
@@ -322,7 +322,9 @@
(*ML toplevel pretty printing*)
fun pprint prt (put_str, begin_blk, put_brk, put_fbrk, end_blk) =
let
- fun pp (Block (_, prts, ind, _)) = (begin_blk ind; pp_lst prts; end_blk ())
+ fun pp (Block (m, prts, ind, _)) =
+ let val (bg, en) = Markup.output m
+ in put_str bg; begin_blk ind; pp_lst prts; end_blk (); put_str en end
| pp (String (s, _)) = put_str s
| pp (Break (false, wd)) = put_brk wd
| pp (Break (true, _)) = put_fbrk ()