--- a/src/HOL/Tools/Sledgehammer/sledgehammer_filter.ML Fri Oct 29 10:14:49 2010 +0200
+++ b/src/HOL/Tools/Sledgehammer/sledgehammer_filter.ML Fri Oct 29 10:40:36 2010 +0200
@@ -87,8 +87,8 @@
val theory_const_suffix = Long_Name.separator ^ " 1"
fun needs_quoting reserved s =
- Symtab.defined reserved s orelse
- exists (not o Syntax.is_identifier) (Long_Name.explode s)
+ Symtab.defined reserved s (* FIXME: orelse
+ exists (not o Syntax.is_identifier) (Long_Name.explode s) *)
fun repair_name reserved multi j name =
(name |> needs_quoting reserved name ? quote) ^