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

fix(library/init/lean/parser/token): broken end of comment

Browse source
This commit is contained in:
Sebastian Ullrich 2018-10-13 11:58:32 -07:00
parent eff43fab08
commit 2df885d9a3
1 changed files with 1 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
library/init/lean/parser/token.lean
View file

@ -28,9 +28,7 @@ private def finish_comment_block_aux : nat → nat → basic_parser_m unit
| nesting (n+1) :=
str "/-" *> finish_comment_block_aux (nesting + 1) n
<|>
str "-/" *>
if nesting = 1 then pure ()
else finish_comment_block_aux (nesting - 1) n
str "-/" *> (if nesting = 1 then pure () else finish_comment_block_aux (nesting - 1) n)
<|>
any *> finish_comment_block_aux nesting n
| _ _ := error "unreachable"