more visible printing of empty binding;
authorwenzelm
Fri, 15 Jul 2011 00:49:38 +0200
changeset 43838 1c18d52204be
parent 43837 1183951365de
child 43839 93f6f24010c2
more visible printing of empty binding;
src/Pure/General/binding.ML
--- a/src/Pure/General/binding.ML	Fri Jul 15 00:03:47 2011 +0200
+++ b/src/Pure/General/binding.ML	Fri Jul 15 00:49:38 2011 +0200
@@ -122,7 +122,7 @@
 (* print *)
 
 fun pretty (Binding {prefix, qualifier, name, pos, ...}) =
-  if name = "" then Pretty.str ""
+  if name = "" then Pretty.str "\"\""
   else
     Pretty.markup (Position.markup pos Markup.binding)
       [Pretty.str (Long_Name.implode (map #1 (prefix @ qualifier) @ [name]))];