# HG changeset patch
# User wenzelm
# Date 1087890719 -7200
# Node ID 318e58f49e8dd1af11337d4f80d6851aaf7fa538
# Parent  7d8501843146ae8f73804d6d3e8b3bc45f719183
added output, removed pp_undef;

diff -r 7d8501843146 -r 318e58f49e8d src/Pure/General/pretty.ML
--- a/src/Pure/General/pretty.ML	Tue Jun 22 09:51:51 2004 +0200
+++ b/src/Pure/General/pretty.ML	Tue Jun 22 09:51:59 2004 +0200
@@ -45,6 +45,7 @@
   val chunks: T list -> T
   val indent: int -> T -> T
   val string_of: T -> string
+  val output: T -> string
   val writeln: T -> unit
   val writelns: T list -> unit
   val str_of: T -> string
@@ -54,7 +55,6 @@
   val setmp_margin: int -> ('a -> 'b) -> 'a -> 'b
   type pp
   val pp: (term -> T) * (typ -> T) * (sort -> T) * (class list -> T) * (arity -> T) -> pp
-  val pp_undef: pp
   val term: pp -> term -> T
   val typ: pp -> typ -> T
   val sort: pp -> sort -> T
@@ -240,10 +240,10 @@
 
 fun prune dp e = if dp > 0 then pruning dp e else e;
 
-fun string_of e =
-  Buffer.content (#tx (format ([prune (! depth) e], (Buffer.empty, 0), 0) empty))
-  |> Output.raw;
+fun output e =
+  Buffer.content (#tx (format ([prune (! depth) e], (Buffer.empty, 0), 0) empty));
 
+val string_of = Output.raw o output;
 val writeln = writeln o string_of;
 fun writelns [] = () | writelns es = writeln (chunks es);
 
@@ -293,8 +293,4 @@
 val string_of_classrel = string_of oo classrel;
 val string_of_arity    = string_of oo arity;
 
-fun undef kind _ = str ("*** UNABLE TO PRINT " ^ kind ^ " ***");
-val pp_undef =
-  pp (undef "term", undef "typ", undef "sort", undef "classrel", undef "arity");
-
 end;