--- a/src/Pure/Isar/theory_target.ML Tue Oct 30 14:39:35 2007 +0100
+++ b/src/Pure/Isar/theory_target.ML Tue Oct 30 14:39:36 2007 +0100
@@ -176,9 +176,9 @@
val legacy_arg = (c', Term.close_schematic_term (Logic.legacy_varify rhs'));
val arg = (c', Term.close_schematic_term rhs');
(* FIXME workaround based on educated guess *)
- val in_class = is_class andalso c' = NameSpace.qualified (Class.class_prefix target) c;
+ val class_global = is_class andalso c' = NameSpace.qualified (Class.class_prefix target) c;
in
- not in_class ?
+ not class_global ?
(Context.mapping_result
(Sign.add_abbrev PrintMode.internal pos legacy_arg)
(ProofContext.add_abbrev PrintMode.internal pos arg)