src/Pure/Syntax/local_syntax.ML
changeset 42290 b1f544c84040
parent 42288 2074b31650e6
child 51655 28d6eb23522c
equal deleted inserted replaced
42289:dafae095d733 42290:b1f544c84040
    81 
    81 
    82 fun prep_mixfix _ _ (_, (_, _, Structure)) = NONE
    82 fun prep_mixfix _ _ (_, (_, _, Structure)) = NONE
    83   | prep_mixfix add mode (Type, decl as (x, _, _)) = SOME ((x, false), ((true, add, mode), decl))
    83   | prep_mixfix add mode (Type, decl as (x, _, _)) = SOME ((x, false), ((true, add, mode), decl))
    84   | prep_mixfix add mode (Const, decl as (x, _, _)) = SOME ((x, false), ((false, add, mode), decl))
    84   | prep_mixfix add mode (Const, decl as (x, _, _)) = SOME ((x, false), ((false, add, mode), decl))
    85   | prep_mixfix add mode (Fixed, (x, T, mx)) =
    85   | prep_mixfix add mode (Fixed, (x, T, mx)) =
    86       SOME ((x, true), ((false, add, mode), (Syntax.mark_fixed x, T, mx)));
    86       SOME ((x, true), ((false, add, mode), (Lexicon.mark_fixed x, T, mx)));
    87 
    87 
    88 fun prep_struct (Fixed, (c, _, Structure)) = SOME c
    88 fun prep_struct (Fixed, (c, _, Structure)) = SOME c
    89   | prep_struct (_, (c, _, Structure)) = error ("Bad mixfix declaration for " ^ quote c)
    89   | prep_struct (_, (c, _, Structure)) = error ("Bad mixfix declaration for " ^ quote c)
    90   | prep_struct _ = NONE;
    90   | prep_struct _ = NONE;
    91 
    91