--- a/src/Pure/pure_setup.ML Tue Jul 20 21:07:23 2010 +0200
+++ b/src/Pure/pure_setup.ML Tue Jul 20 21:49:39 2010 +0200
@@ -18,7 +18,9 @@
(* ML toplevel pretty printing *)
-toplevel_pp ["String", "string"] "ML_Syntax.pretty_string";
+if String.isPrefix "smlnj" ml_system then ()
+else toplevel_pp ["String", "string"] "ML_Syntax.pretty_string";
+
toplevel_pp ["Pretty", "T"] "(fn _: Pretty.T => Pretty.str \"<pretty>\")";
toplevel_pp ["Task_Queue", "task"] "Pretty.str o Task_Queue.str_of_task";
toplevel_pp ["Task_Queue", "group"] "Pretty.str o Task_Queue.str_of_group";