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

feat: antiquoting rawIdent

Browse source
This commit is contained in:
Sebastian Ullrich 2020-01-06 21:57:01 +01:00 • committed by Leonardo de Moura
parent 912011f12f
commit c6100ed25f
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/Init/Lean/Parser/Parser.lean
View file

@ -1069,7 +1069,7 @@ fun _ c s =>
{ fn := identFn,
info := mkAtomicInfo "ident" }
@[inline] def rawIdent {k : ParserKind} : Parser k :=
@[inline] def rawIdentNoAntiquot {k : ParserKind} : Parser k :=
{ fn := fun _ => rawIdentFn }
def quotedSymbolFn {k : ParserKind} : ParserFn k :=
@ -1755,6 +1755,10 @@ node kind $ try $ dollarSymbol >> checkNoWsBefore "no space before" >>
def ident {k : ParserKind} : Parser k :=
mkAntiquot "ident" `ident <|> identNoAntiquot
-- `ident` and `rawIdent` produce the same syntax tree, so we reuse the antiquotation kind name
def rawIdent {k : ParserKind} : Parser k :=
mkAntiquot "ident" `ident <|> rawIdentNoAntiquot
def fieldIdxFn : BasicParserFn :=
fun c s =>
let iniPos := s.pos;