sforman
/
Thun
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

A couple of little comments.

This commit is contained in:
Simon Forman 2022-09-24 08:59:38 -07:00
parent 4ff78dd65c
commit c96cd6e296
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
implementations/Ocaml/helloworld/bin/main.ml
View File

@ -81,7 +81,9 @@ let rec expect_right_bracket tokens acc =
match head with match head with
| Right_bracket -> acc, tail | Right_bracket -> acc, tail
| Left_bracket -> | Left_bracket ->
(* extract the sub-list *)
let sub_list, rest = expect_right_bracket tail [] in let sub_list, rest = expect_right_bracket tail [] in
(* continue looking for the expected "]" *)
let el, rrest = expect_right_bracket rest acc in let el, rrest = expect_right_bracket rest acc in
JoyList sub_list :: el, rrest JoyList sub_list :: el, rrest
| Token tok -> | Token tok ->