# HG changeset patch # User wenzelm # Date 1310683778 -7200 # Node ID 1c18d52204bed9204528bf5275a06d1bfd48708c # Parent 1183951365de3b2fab73d8e8475d56f64d315c3e more visible printing of empty binding; diff -r 1183951365de -r 1c18d52204be 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]))];