install_pp Future.T (polyml only);

--- a/src/Pure/pure_setup.ML	Mon Sep 29 21:26:41 2008 +0200
+++ b/src/Pure/pure_setup.ML	Mon Sep 29 21:26:44 2008 +0200
@@ -30,6 +30,13 @@
 
 install_pp (make_pp ["TaskQueue", "task"] (Pretty.pprint o Pretty.str o TaskQueue.str_of_task));
 install_pp (make_pp ["TaskQueue", "group"] (Pretty.pprint o Pretty.str o TaskQueue.str_of_group));
+
+if String.isPrefix "polyml" ml_system then
+  ML_Context.eval false Position.none
+    "install_pp ((make_pp [\"Future\", \"T\"] (Pretty.pprint o Pretty.str o Future.str_of)):\
+    \  ('a, 'a Future.T) pp)"
+else ();
+
 install_pp (make_pp ["Position", "T"] (Pretty.pprint o Pretty.enum "," "{" "}" o
   map (fn (x, y) => Pretty.str (x ^ "=" ^ y)) o Position.properties_of));
 install_pp (make_pp ["Thm", "thm"] ProofDisplay.pprint_thm);