1.1 --- a/src/Pure/General/binding.ML Tue Mar 13 11:23:39 2012 +0100
1.2 +++ b/src/Pure/General/binding.ML Tue Mar 13 12:51:52 2012 +0100
1.3 @@ -122,9 +122,11 @@
1.4 (* print *)
1.5
1.6 fun pretty (Binding {prefix, qualifier, name, pos, ...}) =
1.7 - Pretty.markup (Position.markup pos Isabelle_Markup.binding)
1.8 - [Pretty.str (Long_Name.implode (map #1 (prefix @ qualifier) @ [name]))]
1.9 - |> Pretty.quote;
1.10 + if name = "" then Pretty.str "\"\""
1.11 + else
1.12 + Pretty.markup (Position.markup pos Isabelle_Markup.binding)
1.13 + [Pretty.str (Long_Name.implode (map #1 (prefix @ qualifier) @ [name]))]
1.14 + |> Pretty.quote;
1.15
1.16 val print = Pretty.str_of o pretty;
1.17