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