src/Pure/Thy/term_style.ML
changeset 33522 737589bb9bb8
parent 33184 de8cc01e8d9e
child 35625 9c818cab0dd0
     1.1 --- a/src/Pure/Thy/term_style.ML	Sun Nov 08 18:43:22 2009 +0100
     1.2 +++ b/src/Pure/Thy/term_style.ML	Sun Nov 08 18:43:42 2009 +0100
     1.3 @@ -19,13 +19,12 @@
     1.4  fun err_dup_style name =
     1.5    error ("Duplicate declaration of antiquote style: " ^ quote name);
     1.6  
     1.7 -structure StyleData = TheoryDataFun
     1.8 +structure StyleData = Theory_Data
     1.9  (
    1.10    type T = ((Proof.context -> term -> term) parser * stamp) Symtab.table;
    1.11    val empty = Symtab.empty;
    1.12 -  val copy = I;
    1.13    val extend = I;
    1.14 -  fun merge _ tabs : T = Symtab.merge (eq_snd (op =)) tabs
    1.15 +  fun merge data : T = Symtab.merge (eq_snd (op =)) data
    1.16      handle Symtab.DUP dup => err_dup_style dup;
    1.17  );
    1.18