A couple of little comments.
This commit is contained in:
parent
4ff78dd65c
commit
c96cd6e296
|
|
@ -81,7 +81,9 @@ let rec expect_right_bracket tokens acc =
|
|||
match head with
|
||||
| Right_bracket -> acc, tail
|
||||
| Left_bracket ->
|
||||
(* extract the sub-list *)
|
||||
let sub_list, rest = expect_right_bracket tail [] in
|
||||
(* continue looking for the expected "]" *)
|
||||
let el, rrest = expect_right_bracket rest acc in
|
||||
JoyList sub_list :: el, rrest
|
||||
| Token tok ->
|
||||
|
|
|
|||
Loading…
Reference in New Issue