type token = Left_bracket | Right_bracket | Token of string
-let delimiter str i =
- i >= String.length str || String.contains "[] " (String.get str i)
-
+let delimiter : char -> bool = String.contains "[] "
+let delimits str i = i >= String.length str || delimiter (String.get str i)
let make_token str index i = (Token (String.sub str index (i - index)), i)
(* string -> int -> int -> token * int *)
let rec tokenize1 str index i =
- if delimiter str i then make_token str index i else tokenize1 str index (i + 1)
+ if delimits str i then make_token str index i else tokenize1 str index (i + 1)
let rec tokenize0 str index acc =
if index >= String.length str then acc
╚██████╔╝██║ ██║╚██████╔╝██║ ╚████║██║ ██╗
╚═════╝ ╚═╝ ╚═╝ ╚═════╝ ╚═╝ ╚═══╝╚═╝ ╚═╝
+(GRONK stands for "I am bad at naming things.")
+
With gronk we're juggling four things:
The incoming joy expression
gronk_fn_list(Js, [Term|Stack], StackOut, CGTail, Ck, IndentLevel).
gronk_fn_list(
- [list(Body), symbol(step)|Js],
- [list(B)|Stack0],
+ [symbol(step)|Js],
+ [list(Body), list(B)|Stack0],
Stack,
CGTail,
CodeGens,