--- a/src/Pure/ML-Systems/install_pp_polyml-experimental.ML Sun May 31 15:49:35 2009 +0200
+++ b/src/Pure/ML-Systems/install_pp_polyml-experimental.ML Sun May 31 16:29:39 2009 +0200
@@ -3,15 +3,15 @@
Extra toplevel pretty-printing for Poly/ML 5.3 (SVN experimental).
*)
-addPrettyPrinter (fn depth => fn pretty => fn x =>
+PolyML.addPrettyPrinter (fn depth => fn pretty => fn x =>
(case Future.peek x of
- NONE => PrettyString "<future>"
- | SOME (Exn.Exn _) => PrettyString "<failed>"
+ NONE => PolyML.PrettyString "<future>"
+ | SOME (Exn.Exn _) => PolyML.PrettyString "<failed>"
| SOME (Exn.Result y) => pretty (y, depth)));
-addPrettyPrinter (fn depth => fn pretty => fn x =>
+PolyML.addPrettyPrinter (fn depth => fn pretty => fn x =>
(case Lazy.peek x of
- NONE => PrettyString "<lazy>"
- | SOME (Exn.Exn _) => PrettyString "<failed>"
+ NONE => PolyML.PrettyString "<lazy>"
+ | SOME (Exn.Exn _) => PolyML.PrettyString "<failed>"
| SOME (Exn.Result y) => pretty (y, depth)));