author | wenzelm |
Fri, 15 Jul 2011 00:03:47 +0200 | |
changeset 43837 | 1183951365de |
parent 43836 | 136ac1de4cbc |
child 43838 | 1c18d52204be |
--- a/src/Pure/Isar/element.ML Thu Jul 14 23:05:25 2011 +0200 +++ b/src/Pure/Isar/element.ML Fri Jul 15 00:03:47 2011 +0200 @@ -526,7 +526,7 @@ fun activate raw_elem ctxt = let val elem = raw_elem |> map_ctxt - {binding = tap Variable.check_name, + {binding = tap (fn b => if Binding.is_empty b then "" else Variable.check_name b), typ = I, term = I, pattern = I,