src/Pure/ML/install_pp_polyml-5.3.ML
changeset 41415 23533273220a
parent 38327 d6afb77b0f6d
child 43761 e72ba84ae58f
--- a/src/Pure/ML/install_pp_polyml-5.3.ML	Wed Dec 29 18:18:42 2010 +0100
+++ b/src/Pure/ML/install_pp_polyml-5.3.ML	Wed Dec 29 20:41:33 2010 +0100
@@ -4,6 +4,9 @@
 Extra toplevel pretty-printing for Poly/ML 5.3.0.
 *)
 
+PolyML.addPrettyPrinter (fn depth => fn _ => fn str =>
+  ml_pretty (Pretty.to_ML (ML_Syntax.pretty_string (depth * 100) str)));
+
 PolyML.addPrettyPrinter (fn depth => fn pretty => fn var =>
   pretty (Synchronized.value var, depth));