equal
deleted
inserted
replaced
2130 |
2130 |
2131 val _ = |
2131 val _ = |
2132 OuterSyntax.command "code_class" "define code syntax for class" K.thy_decl ( |
2132 OuterSyntax.command "code_class" "define code syntax for class" K.thy_decl ( |
2133 parse_multi_syntax P.xname |
2133 parse_multi_syntax P.xname |
2134 (Scan.option (P.string -- Scan.optional (P.$$$ "where" |-- Scan.repeat1 |
2134 (Scan.option (P.string -- Scan.optional (P.$$$ "where" |-- Scan.repeat1 |
2135 (P.term --| (P.$$$ "\\<equiv>" || P.$$$ "==") -- P.string)) [])) |
2135 (P.term --| (P.$$$ "\<equiv>" || P.$$$ "==") -- P.string)) [])) |
2136 >> (Toplevel.theory oo fold) (fn (target, syns) => |
2136 >> (Toplevel.theory oo fold) (fn (target, syns) => |
2137 fold (fn (raw_class, syn) => add_syntax_class_cmd target raw_class syn) syns) |
2137 fold (fn (raw_class, syn) => add_syntax_class_cmd target raw_class syn) syns) |
2138 ); |
2138 ); |
2139 |
2139 |
2140 val _ = |
2140 val _ = |