src/Pure/General/binding.ML
changeset 47769 ec793befc232
parent 46537 d83797ef0d2d
child 50007 0518bf89c777
     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