export str_of;

--- a/src/Pure/Isar/toplevel.ML	Tue Jul 08 18:13:12 2008 +0200
+++ b/src/Pure/Isar/toplevel.ML	Tue Jul 08 20:42:00 2008 +0200
@@ -48,6 +48,7 @@
   val empty: transition
   val init_of: transition -> string option
   val name_of: transition -> string
+  val str_of: transition -> string
   val name: string -> transition -> transition
   val position: Position.T -> transition -> transition
   val interactive: bool -> transition -> transition