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

fix: workaround for term parser antiquotation issue

Browse source 
@Kha this is a temporary workaround. We should discuss how to cleanup
in the next Dev meeting.
This commit is contained in:
Leonardo de Moura 2020-01-22 12:05:12 -08:00
parent 642850efb2
commit 0be31c14ec
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -1767,7 +1767,10 @@ private def catNameToString : Name → String
| n => n.toString
def categoryParserFnImpl (catName : Name) : ParserFn leading :=
orelseFn (mkAntiquot (catNameToString catName) none false).fn (categoryParserFnImplAux catName)
if catName != `term then
orelseFn (mkAntiquot (catNameToString catName) none false).fn (categoryParserFnImplAux catName)
else
categoryParserFnImplAux catName
@[init] def setCategoryParserFnRef : IO Unit :=
categoryParserFnRef.set categoryParserFnImpl