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

fix(library/init/lean/parser/parser): missing result

Browse source
This commit is contained in:
Leonardo de Moura 2019-06-19 10:33:53 -07:00
parent 451ab72eea
commit 89dae7f877
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
library/init/lean/parser/parser.lean
View file

@ -910,7 +910,7 @@ def trailingParser (tables : ParsingTables) : ParserFn led :=
partial def trailingLoop (tables : ParsingTables) (rbp : Nat) (c : ParserContext) : Syntax → ParserState → ParserState
| left s :=
let (s, lbp) := currLbp c s in
if rbp ≥ lbp then s
if rbp ≥ lbp then s.pushSyntax left
else
let s := trailingParser tables left c s in
if s.hasError then s