Mercurial Mercurial > repos > isabelle / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
proper printing of empty binding (again, cf. 93f6f24010c2);
authorwenzelm
Tue, 13 Mar 2012 12:51:52 +0100
changeset 46897 ec793befc232
parent 46896 5ade0b12d488
child 46898 1570b30ee040
proper printing of empty binding (again, cf. 93f6f24010c2);
src/Pure/General/binding.ML file | annotate | diff | comparison | revisions 
--- a/src/Pure/General/binding.ML	Tue Mar 13 11:23:39 2012 +0100
+++ b/src/Pure/General/binding.ML	Tue Mar 13 12:51:52 2012 +0100
@@ -122,9 +122,11 @@
 (* print *)
 
 fun pretty (Binding {prefix, qualifier, name, pos, ...}) =
-  Pretty.markup (Position.markup pos Isabelle_Markup.binding)
-    [Pretty.str (Long_Name.implode (map #1 (prefix @ qualifier) @ [name]))]
-  |> Pretty.quote;
+  if name = "" then Pretty.str "\"\""
+  else
+    Pretty.markup (Position.markup pos Isabelle_Markup.binding)
+      [Pretty.str (Long_Name.implode (map #1 (prefix @ qualifier) @ [name]))]
+    |> Pretty.quote;
 
 val print = Pretty.str_of o pretty;
isabelle