src/Pure/Isar/args.ML
changeset 55033 8e8243975860
parent 53168 d998de7f0efc
child 55045 99056d23e05b
equal deleted inserted replaced
55032:b49366215417 55033:8e8243975860
   225 
   225 
   226 (* arguments within outer syntax *)
   226 (* arguments within outer syntax *)
   227 
   227 
   228 val argument_kinds =
   228 val argument_kinds =
   229  [Token.Ident, Token.LongIdent, Token.SymIdent, Token.Var, Token.TypeIdent, Token.TypeVar,
   229  [Token.Ident, Token.LongIdent, Token.SymIdent, Token.Var, Token.TypeIdent, Token.TypeVar,
   230   Token.Nat, Token.Float, Token.String, Token.AltString, Token.Verbatim];
   230   Token.Nat, Token.Float, Token.String, Token.AltString, Token.Cartouche, Token.Verbatim];
   231 
   231 
   232 fun parse_args is_symid =
   232 fun parse_args is_symid =
   233   let
   233   let
   234     fun argument blk =
   234     fun argument blk =
   235       Parse.group (fn () => "argument")
   235       Parse.group (fn () => "argument")