balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Micheline: fixes bug in resilient parser

Browse Source
This commit is contained in:
Milo Davis 2017-12-14 12:37:12 +01:00 committed by Benjamin Canou
parent 71c8e02b41
commit e54b7e9eb2
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lib_micheline/micheline_parser.ml
View File

@ -499,7 +499,8 @@ let rec parse ?(check = true) errors tokens stack =
| Open_paren -> Close_paren | Open_paren -> Close_paren
| Open_brace -> Close_brace | Open_brace -> Close_brace
| _ -> assert false } in | _ -> assert false } in
parse ~check errors (fake :: (* insert *) tokens) stack let tokens = token :: (* insert *) fake :: List.tl tokens in
parse ~check errors tokens stack
(* Valid states *) (* Valid states *)
| (Toplevel _ | Sequence (_, _, _)) :: _ , | (Toplevel _ | Sequence (_, _, _)) :: _ ,
{ token = Ident name ; loc } :: { token = Annot annot } :: rest -> { token = Ident name ; loc } :: { token = Annot annot } :: rest ->