--- a/src/Pure/Isar/attrib.ML Sun May 15 16:40:24 2011 +0200
+++ b/src/Pure/Isar/attrib.ML Sun May 15 17:06:35 2011 +0200
@@ -78,8 +78,9 @@
let
val ctxt = Proof_Context.init_global thy;
val attribs = Attributes.get thy;
- fun prt_attr (name, (_, comment)) = Pretty.block
- [Pretty.str (name ^ ":"), Pretty.brk 2, Pretty.str comment];
+ fun prt_attr (name, (_, "")) = Pretty.str name
+ | prt_attr (name, (_, comment)) =
+ Pretty.block [Pretty.str (name ^ ":"), Pretty.brk 2, Pretty.str comment];
in
[Pretty.big_list "attributes:" (map prt_attr (Name_Space.extern_table ctxt attribs))]
|> Pretty.chunks |> Pretty.writeln