src/Pure/Isar/attrib.ML
changeset 39163 4d701c0388c3
parent 39137 ccb53edd59f0
child 39166 19efc2af3e6c
--- a/src/Pure/Isar/attrib.ML	Mon Sep 06 19:23:54 2010 +0200
+++ b/src/Pure/Isar/attrib.ML	Mon Sep 06 21:33:19 2010 +0200
@@ -324,7 +324,7 @@
 
 structure Configs = Theory_Data
 (
-  type T = Config.value Config.T Symtab.table;
+  type T = Config.raw Symtab.table;
   val empty = Symtab.empty;
   val extend = I;
   fun merge data = Symtab.merge (K true) data;
@@ -392,22 +392,22 @@
 (* theory setup *)
 
 val _ = Context.>> (Context.map_theory
- (register_config Syntax.show_brackets_value #>
-  register_config Syntax.show_sorts_value #>
-  register_config Syntax.show_types_value #>
-  register_config Syntax.show_structs_value #>
-  register_config Syntax.show_question_marks_value #>
-  register_config Syntax.ambiguity_level_value #>
-  register_config Syntax.eta_contract_value #>
-  register_config Goal_Display.goals_limit_value #>
-  register_config Goal_Display.show_main_goal_value #>
-  register_config Goal_Display.show_consts_value #>
-  register_config Unify.trace_bound_value #>
-  register_config Unify.search_bound_value #>
-  register_config Unify.trace_simp_value #>
-  register_config Unify.trace_types_value #>
-  register_config MetaSimplifier.simp_depth_limit_value #>
-  register_config MetaSimplifier.debug_simp_value #>
-  register_config MetaSimplifier.trace_simp_value));
+ (register_config Syntax.show_brackets_raw #>
+  register_config Syntax.show_sorts_raw #>
+  register_config Syntax.show_types_raw #>
+  register_config Syntax.show_structs_raw #>
+  register_config Syntax.show_question_marks_raw #>
+  register_config Syntax.ambiguity_level_raw #>
+  register_config Syntax.eta_contract_raw #>
+  register_config Goal_Display.goals_limit_raw #>
+  register_config Goal_Display.show_main_goal_raw #>
+  register_config Goal_Display.show_consts_raw #>
+  register_config Unify.trace_bound_raw #>
+  register_config Unify.search_bound_raw #>
+  register_config Unify.trace_simp_raw #>
+  register_config Unify.trace_types_raw #>
+  register_config MetaSimplifier.simp_depth_limit_raw #>
+  register_config MetaSimplifier.debug_simp_raw #>
+  register_config MetaSimplifier.trace_simp_raw));
 
 end;