--- 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));