src/Pure/Isar/isar_syn.ML
changeset 42204 b3277168c1e7
parent 41944 b97091ae583a
child 42299 06e93f257d0e
     1.1 --- a/src/Pure/Isar/isar_syn.ML	Sun Apr 03 18:17:21 2011 +0200
     1.2 +++ b/src/Pure/Isar/isar_syn.ML	Sun Apr 03 21:59:33 2011 +0200
     1.3 @@ -175,9 +175,9 @@
     1.4      -- Parse.string;
     1.5  
     1.6  fun trans_arrow toks =
     1.7 -  ((Parse.$$$ "\\<rightharpoonup>" || Parse.$$$ "=>") >> K Syntax.ParseRule ||
     1.8 -    (Parse.$$$ "\\<leftharpoondown>" || Parse.$$$ "<=") >> K Syntax.PrintRule ||
     1.9 -    (Parse.$$$ "\\<rightleftharpoons>" || Parse.$$$ "==") >> K Syntax.ParsePrintRule) toks;
    1.10 +  ((Parse.$$$ "\\<rightharpoonup>" || Parse.$$$ "=>") >> K Syntax.Parse_Rule ||
    1.11 +    (Parse.$$$ "\\<leftharpoondown>" || Parse.$$$ "<=") >> K Syntax.Print_Rule ||
    1.12 +    (Parse.$$$ "\\<rightleftharpoons>" || Parse.$$$ "==") >> K Syntax.Parse_Print_Rule) toks;
    1.13  
    1.14  val trans_line =
    1.15    trans_pat -- Parse.!!! (trans_arrow -- trans_pat)
    1.16 @@ -185,11 +185,11 @@
    1.17  
    1.18  val _ =
    1.19    Outer_Syntax.command "translations" "declare syntax translation rules" Keyword.thy_decl
    1.20 -    (Scan.repeat1 trans_line >> (Toplevel.theory o Sign.add_trrules));
    1.21 +    (Scan.repeat1 trans_line >> (Toplevel.theory o Isar_Cmd.translations));
    1.22  
    1.23  val _ =
    1.24    Outer_Syntax.command "no_translations" "remove syntax translation rules" Keyword.thy_decl
    1.25 -    (Scan.repeat1 trans_line >> (Toplevel.theory o Sign.del_trrules));
    1.26 +    (Scan.repeat1 trans_line >> (Toplevel.theory o Isar_Cmd.no_translations));
    1.27  
    1.28  
    1.29  (* axioms and definitions *)