Mercurial Mercurial > repos > isabelle / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
back to 1.36 (Poly/ML crash!?);
authorwenzelm
Tue, 24 Jun 2008 23:38:44 +0200
changeset 27350 c8adf88960ad
parent 27349 80273a002e37
child 27351 6b120fb45278
back to 1.36 (Poly/ML crash!?);
src/Pure/General/pretty.ML file | annotate | diff | comparison | revisions 
--- a/src/Pure/General/pretty.ML	Tue Jun 24 22:27:36 2008 +0200
+++ b/src/Pure/General/pretty.ML	Tue Jun 24 23:38:44 2008 +0200
@@ -322,9 +322,7 @@
 (*ML toplevel pretty printing*)
 fun pprint prt (put_str, begin_blk, put_brk, put_fbrk, end_blk) =
   let
-    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
+    fun pp (Block (_, prts, ind, _)) = (begin_blk ind; pp_lst prts; end_blk ())
       | pp (String (s, _)) = put_str s
       | pp (Break (false, wd)) = put_brk wd
       | pp (Break (true, _)) = put_fbrk ()
isabelle