src/Pure/ML/install_pp_polyml-5.3.ML
changeset 43761 e72ba84ae58f
parent 41415 23533273220a
child 43791 5e9a1d71f94d
--- a/src/Pure/ML/install_pp_polyml-5.3.ML	Mon Jul 11 22:50:29 2011 +0200
+++ b/src/Pure/ML/install_pp_polyml-5.3.ML	Mon Jul 11 22:55:47 2011 +0200
@@ -14,13 +14,13 @@
   (case Future.peek x of
     NONE => PolyML.PrettyString "<future>"
   | SOME (Exn.Exn _) => PolyML.PrettyString "<failed>"
-  | SOME (Exn.Result y) => pretty (y, depth)));
+  | SOME (Exn.Res y) => pretty (y, depth)));
 
 PolyML.addPrettyPrinter (fn depth => fn pretty => fn x =>
   (case Lazy.peek x of
     NONE => PolyML.PrettyString "<lazy>"
   | SOME (Exn.Exn _) => PolyML.PrettyString "<failed>"
-  | SOME (Exn.Result y) => pretty (y, depth)));
+  | SOME (Exn.Res y) => pretty (y, depth)));
 
 PolyML.addPrettyPrinter (fn depth => fn _ => fn tm =>
   let