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

Minor cleanup.

This commit is contained in:
Simon Forman 2022-09-28 22:07:28 -07:00
parent abddda47da
commit 56fdf1eb18
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -202,8 +202,7 @@ and expect_right_bracket_one_token_lookahead token tokens acc =
(JoyList sub_list :: el, rrest)
| Token tok ->
let el, rest = expect_right_bracket tokens acc in
let jt = tokenator tok in
(jt :: el, rest)
(tokenator tok :: el, rest)
(* token -> token list -> joy_type * token list *)
let one_token_lookahead token tokens =
@ -212,9 +211,7 @@ let one_token_lookahead token tokens =
| Left_bracket ->
let el, rest = expect_right_bracket tokens [] in
(JoyList el, rest)
| Token tok ->
let jt = tokenator tok in
(jt, tokens)
| Token tok -> (tokenator tok, tokens)
(* token list -> joy_type list -> joy_type list *)
let rec parse0 tokens acc =