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

fix: ignore $ at notFollowedByCategoryToken when inside quotations

Browse source
This commit is contained in:
Leonardo de Moura 2020-09-26 17:54:12 -07:00
parent ee4dc452ac
commit 0275d23ad7
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/Lean/Parser/Extension.lean
View file

@ -482,7 +482,8 @@ fun ctx s =>
let (s, stx) := peekToken ctx s;
match stx with
| some (Syntax.atom _ sym) =>
match cat.tables.leadingTable.find? (mkNameSimple sym) with
if ctx.insideQuot && sym == "$" then s
else match cat.tables.leadingTable.find? (mkNameSimple sym) with
| some _ => s.mkError "notFollowedByCategoryToken"
| _ => s
| _ => s