src/Pure/ML/install_pp_polyml-5.3.ML

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