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 |