max/lean4-htt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 2

feat: simplify macroArg

Browse source
This commit is contained in:
Leonardo de Moura 2020-01-17 08:11:19 -08:00
parent a98b6763ad
commit 36d508a4ce
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/Init/Lean/Parser/Syntax.lean
View file

@ -59,7 +59,8 @@ def identPrec := parser! ident >> optional Syntax.precedence
@[builtinCommandParser] def «macro_rules» := parser! "macro_rules" >> many1Indent Term.matchAlt "'match' alternatives must be indented"
@[builtinCommandParser] def «syntax» := parser! "syntax " >> optional ("[" >> ident >> "]") >> many1 syntaxParser >> " : " >> ident
@[builtinCommandParser] def syntaxCat := parser! "declare_syntax_cat " >> ident
def macroArg := parser! "(" >> optional (ident >> ":") >> syntaxParser >> ")"
def macroArgSimple := parser! ident >> ":" >> ident >> optional Syntax.precedence
def macroArg := try (strLitPrec <|> macroArgSimple)
@[builtinCommandParser] def «macro» := parser! "macro " >> (strLitPrec <|> identPrec) >> many macroArg >> " : " >> ident >> unicodeSymbol "⇒" "=>" >> termParser
end Command