1 (* Title: Pure/ML-Systems/install_pp_polyml-5.3.ML
3 Extra toplevel pretty-printing for Poly/ML 5.3.0.
6 PolyML.addPrettyPrinter (fn depth => fn pretty => fn x =>
8 NONE => PolyML.PrettyString "<future>"
9 | SOME (Exn.Exn _) => PolyML.PrettyString "<failed>"
10 | SOME (Exn.Result y) => pretty (y, depth)));
12 PolyML.addPrettyPrinter (fn depth => fn pretty => fn x =>
14 NONE => PolyML.PrettyString "<lazy>"
15 | SOME (Exn.Exn _) => PolyML.PrettyString "<failed>"
16 | SOME (Exn.Result y) => pretty (y, depth)));