From: Simon Forman Date: Sat, 24 Sep 2022 15:59:38 +0000 (-0700) Subject: A couple of little comments. X-Git-Url: http://git.osdn.net/view?a=commitdiff_plain;h=c96cd6e296b9da16767241d5a551f4ddeb2764fd;p=joypy%2FThun.git A couple of little comments. --- diff --git a/implementations/Ocaml/helloworld/bin/main.ml b/implementations/Ocaml/helloworld/bin/main.ml index 441c395..0d194a1 100644 --- a/implementations/Ocaml/helloworld/bin/main.ml +++ b/implementations/Ocaml/helloworld/bin/main.ml @@ -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 ->