1.1 --- a/src/Pure/ML/install_pp_polyml-5.3.ML	Tue Jul 12 23:22:22 2011 +0200
     1.2 +++ b/src/Pure/ML/install_pp_polyml-5.3.ML	Wed Jul 13 10:57:09 2011 +0200
     1.3 @@ -7,6 +7,9 @@
     1.4  PolyML.addPrettyPrinter (fn depth => fn _ => fn str =>
     1.5    ml_pretty (Pretty.to_ML (ML_Syntax.pretty_string (depth * 100) str)));
     1.6  
     1.7 +PolyML.addPrettyPrinter (fn depth => fn _ => fn tree =>
     1.8 +  ml_pretty (Pretty.to_ML (XML.pretty depth tree)));
     1.9 +
    1.10  PolyML.addPrettyPrinter (fn depth => fn pretty => fn var =>
    1.11    pretty (Synchronized.value var, depth));
    1.12