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